/[Frey]/branches/zimbardo/lib/Frey/SVN.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 /branches/zimbardo/lib/Frey/SVN.pm

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

revision 1078 by dpavlin, Thu Jun 4 19:23:32 2009 UTC revision 1133 by dpavlin, Tue Jun 30 15:10:55 2009 UTC
# Line 7  use Moose; Line 7  use Moose;
7  # 2004-04-28 Dobrica Pavlinusic <dpavlin@rot13.org>  # 2004-04-28 Dobrica Pavlinusic <dpavlin@rot13.org>
8    
9  extends 'Frey';  extends 'Frey';
10  with 'Frey::Web';  with 'Frey::Web', 'Frey::Storage', 'Frey::HTML::Diff';
 with 'Frey::Storage';  
 with 'Frey::HTML::Diff';  
11    
12  use XML::Simple;  use XML::Simple;
13  use DateTimeX::Easy;  use DateTimeX::Easy;
# Line 120  sub iterator { Line 118  sub iterator {
118                  if ( $self->include_diff || $self->file_stats ) {                  if ( $self->include_diff || $self->file_stats ) {
119                          my $rev = $e->{'revision'};                          my $rev = $e->{'revision'};
120    
121                            warn "# revision $rev\n" if $rev % 100 == 0;
122    
123                          $e->{diff_paths}->{rev} = $rev; # XXX debug                          $e->{diff_paths}->{rev} = $rev; # XXX debug
124    
125                          my $cache = $svn_path;                          my $cache = $svn_path;
# Line 327  sub as_markup { Line 327  sub as_markup {
327                  + length( $stats->{total_removed} )                  + length( $stats->{total_removed} )
328                  ;                  ;
329    
330          $max_path_len += int( $max_path_len / 10 ); # we are using ex, so we add 10%          $max_path_len += int( $max_path_len / 4 ); # we are using ex, so we adjust length
331    
332          $self->add_css(qq|          $self->add_css(qq|
333                  .files {                  .files {
# Line 369  sub codeswarm_as_markup { Line 369  sub codeswarm_as_markup {
369    
370          });          });
371    
372            warn "generated ",length($file_events)," bytes of file events\n";
373    
374          return qq|<?xml version="1.0"?>          return qq|<?xml version="1.0"?>
375          <!-- One commit per day for one month by a documenter and programmer. -->          <!-- One commit per day for one month by a documenter and programmer. -->
376          <file_events>          <file_events>
# Line 378  sub codeswarm_as_markup { Line 380  sub codeswarm_as_markup {
380    
381  }  }
382    
383    __PACKAGE__->meta->make_immutable;
384    no Moose;
385    
386  1;  1;
Legend:
Removed from v.1078  
changed lines
  Added in v.1133
  ViewVC Help
Powered by ViewVC 1.1.26