Parent Directory | Revision Log | Patch
revision 497 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |