Parent Directory | Revision Log
return modified files from svk
1 | dpavlin | 485 | 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; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |