lib/Frey/SVK.pm

package Frey::SVK;
use Moose;

with 'Frey::Escape';

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

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	package Frey::SVK;
2	use Moose;
3
4	with 'Frey::Escape';
5
6	sub modified {
7	my ($self) = @_;
8	my @modified;
9	open(my $svk, '-\|', 'svk status -q') or die $@;
10	while(<$svk>) {
11	chomp;
12	push @modified, $1 if /^M\s+(.+)/;
13	}
14	return @modified;
15	}
16
17	sub as_data {
18	my ($self) = @_;
19	{
20	modified => [ $self->modified ],
21	}
22	}
23
24	sub as_markup {
25	my ($self) = @_;
26
27	my $status = `svk status -q`;
28	my $diff = `svk diff`;
29
30	my $html
31	= qq\|<pre>$status</pre><hr><pre>\|
32	. $self->html_escape( $diff )
33	. qq\|</pre>\|
34	;
35	warn "diff ",length($html)," bytes";
36
37	return $html;
38	}
39
40	1;