19 |
default => 'file:///home/dpavlin/private/svn/Frey', |
default => 'file:///home/dpavlin/private/svn/Frey', |
20 |
); |
); |
21 |
|
|
22 |
|
has limit => ( |
23 |
|
is => 'rw', |
24 |
|
isa => 'Int', |
25 |
|
default => 50, |
26 |
|
); |
27 |
|
|
28 |
sub as_markup { |
sub as_markup { |
29 |
my ($self) = @_; |
my ($self) = @_; |
30 |
|
|
93 |
$cmd = "svn log -v --xml $svn_path"; |
$cmd = "svn log -v --xml $svn_path"; |
94 |
} |
} |
95 |
|
|
96 |
|
$cmd .= " --limit " . $self->limit if $self->limit; |
97 |
|
|
98 |
warn "# $cmd\n"; |
warn "# $cmd\n"; |
99 |
open(my $fh, $cmd .' |') || die "failed $cmd: $!"; |
open(my $fh, $cmd .' |') || die "failed $cmd: $!"; |
100 |
my $log; |
my $log; |