/[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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 485 by dpavlin, Mon Nov 24 15:33:00 2008 UTC revision 498 by dpavlin, Mon Nov 24 21:31:54 2008 UTC
# Line 1  Line 1 
1  package Frey::SVK;  package Frey::SVK;
2  use Moose;  use Moose;
3    
4    with 'Frey::Escape';
5    
6  sub modified {  sub modified {
7          my ($self) = @_;          my ($self) = @_;
8          my @modified;          my @modified;
# Line 19  sub as_data { Line 21  sub as_data {
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;  1;
Legend:
Removed from v.485  
changed lines
  Added in v.498
  ViewVC Help
Powered by ViewVC 1.1.26