lib/Frey/SVK.pm

package Frey::SVK;
use Moose;

with 'Frey::Escape';

sub svk {
        my ( $self, $exec, $coderef ) = @_;
        open(my $svk, '-|', 'svk ' . $exec) or die "svk $exec: $@";
        while(<$svk>) {
                chomp;
                $coderef->( $_ );
        }
        close($svk) or die "can't close svk $exec: $@";
}

sub modified {
        my ($self) = @_;
        my @modified;
        my $svk = $self->svk('status -q', sub {
                push @modified, $1 if /^M\s+(.+)/;
        });
        return @modified;
}

our $info; # cache, we use it on every hit
sub info {
        my ($self) = @_;
        return $info if $info;
        my $svk = $self->svk('info', sub {
                my ( $label, $value ) = split(/:\s+/, $_, 2);
                $info->{$label} = $value;
        });
        return $info;
}

sub as_data {
        my ($self) = @_;
        {
                modified => [ $self->modified ],
        }
}

sub as_markup {
        my ($self) = @_;

        my $status = `svk status -q`;
        my $diff   = `svk diff`;

        my $html 
                = qq|<pre>$status</pre><hr><pre>|
                . $self->html_escape( $diff )
                . qq|</pre>|
                ;
        warn "diff ",length($html)," bytes";

        return $html;
}

1;
1	dpavlin	485	package Frey::SVK;
2			use Moose;
3
4	dpavlin	498	with 'Frey::Escape';
5
6	dpavlin	505	sub svk {
7			my ( $self, $exec, $coderef ) = @_;
8			open(my $svk, '-\|', 'svk ' . $exec) or die "svk $exec: $@";
9			while(<$svk>) {
10			chomp;
11			$coderef->( $_ );
12			}
13			close($svk) or die "can't close svk $exec: $@";
14			}
15
16	dpavlin	485	sub modified {
17			my ($self) = @_;
18			my @modified;
19	dpavlin	505	my $svk = $self->svk('status -q', sub {
20	dpavlin	485	push @modified, $1 if /^M\s+(.+)/;
21	dpavlin	505	});
22	dpavlin	485	return @modified;
23			}
24
25	dpavlin	505	our $info; # cache, we use it on every hit
26			sub info {
27			my ($self) = @_;
28			return $info if $info;
29			my $svk = $self->svk('info', sub {
30			my ( $label, $value ) = split(/:\s+/, $_, 2);
31			$info->{$label} = $value;
32			});
33			return $info;
34			}
35
36	dpavlin	485	sub as_data {
37			my ($self) = @_;
38			{
39			modified => [ $self->modified ],
40			}
41			}
42
43	dpavlin	498	sub as_markup {
44			my ($self) = @_;
45
46			my $status = `svk status -q`;
47			my $diff = `svk diff`;
48
49			my $html
50			= qq\|<pre>$status</pre><hr><pre>\|
51			. $self->html_escape( $diff )
52			. qq\|</pre>\|
53			;
54			warn "diff ",length($html)," bytes";
55
56			return $html;
57			}
58
59	dpavlin	485	1;