lib/Frey/SVK.pm

package Frey::SVK;
use Moose;

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 ],
        }
}

1;
1	package Frey::SVK;
2	use Moose;
3
4	sub modified {
5	my ($self) = @_;
6	my @modified;
7	open(my $svk, '-\|', 'svk status -q') or die $@;
8	while(<$svk>) {
9	chomp;
10	push @modified, $1 if /^M\s+(.+)/;
11	}
12	return @modified;
13	}
14
15	sub as_data {
16	my ($self) = @_;
17	{
18	modified => [ $self->modified ],
19	}
20	}
21
22	1;