/[Frey]/trunk/lib/Frey/SVK.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/lib/Frey/SVK.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 485 - (hide annotations)
Mon Nov 24 15:33:00 2008 UTC (15 years, 4 months ago) by dpavlin
File size: 295 byte(s)
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