/[Frey]/trunk/lib/Frey/VCI.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/VCI.pm

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

revision 514 by dpavlin, Tue Nov 25 13:53:53 2008 UTC revision 515 by dpavlin, Tue Nov 25 14:09:50 2008 UTC
# Line 5  use Moose; Line 5  use Moose;
5  use lib '/rest/cvs/vci/lib'; # FIXME  use lib '/rest/cvs/vci/lib'; # FIXME
6  use VCI;  use VCI;
7    
 use HTML::Entities qw/encode_entities/;  
   
8  extends 'Frey';  extends 'Frey';
9  with 'Frey::Web';  with 'Frey::Web';
10    with 'Frey::Escape';
11    
12  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
13    
# Line 39  has 'revision' => ( Line 38  has 'revision' => (
38          documentation => 'last revision in repository if not specified',          documentation => 'last revision in repository if not specified',
39  );  );
40    
 sub pre_dump {  
         my $o = shift;  
         # because Data::Dumper::HTML sucks  
         my $t;  
         if ( blessed($o) && $o->can('dump') ) {  
                 $t = $o->dump;  
                 $t =~ s/ {8}/  /gm;  
         } else {  
                 $t = dump( $o );  
         }  
         return '<hr><pre>' . encode_entities($t) . '</pre><hr>';  
 }  
   
41  sub as_markup {  sub as_markup {
42          my ( $self ) = @_;          my ( $self ) = @_;
43    
# Line 61  sub as_markup { Line 47  sub as_markup {
47                  repo  => $self->repo,                  repo  => $self->repo,
48                  type  => $self->type,                  type  => $self->type,
49                  debug => $self->debug,                  debug => $self->debug,
50          );          ) || die "can't open ",$self->type," ",$self->repo;
51    
52          my @projects_available = map { $_->name } @{ $repo->projects };          my @projects_available = map { $_->name } @{ $repo->projects };
53          die $self->project," not one of valid projects ", dump( @projects_available ) unless grep { $self->project } @projects_available;          die $self->project," not one of valid projects ", dump( @projects_available ) unless grep { $self->project } @projects_available;
# Line 84  sub as_markup { Line 70  sub as_markup {
70                  div( 'commiter', $commit->committer ) .                  div( 'commiter', $commit->committer ) .
71                  div( 'date',     $commit->time->iso8601 ) .                  div( 'date',     $commit->time->iso8601 ) .
72                  div( 'message',  $commit->message ) .                  div( 'message',  $commit->message ) .
73                  '<pre>' . encode_entities( $diff->raw ) . '</pre>' .                  '<pre>' . $self->html_escape( $diff->raw ) . '</pre>' .
74                  pre_dump( $diff );                  '<span class="frey-popdown">dump<code>' . $self->html_dump( $diff ) . '</code></span>';
75    
76          $self->title( $self->repo . '/' . $project->name );          $self->title( $self->repo . '/' . $project->name );
77          return $body;          return $body;
Legend:
Removed from v.514  
changed lines
  Added in v.515
  ViewVC Help
Powered by ViewVC 1.1.26