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

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

revision 185 by dpavlin, Tue Sep 9 23:16:26 2008 UTC revision 186 by dpavlin, Sat Sep 13 14:19:04 2008 UTC
# Line 12  use Data::Dump qw/dump/; Line 12  use Data::Dump qw/dump/;
12    
13  our $debug = 1;  our $debug = 1;
14    
15  sub pre {  sub pre_dump {
16          my $t = shift;          my $o = shift;
17            # because Data::Dumper::HTML sucks
18            my $t = $o->dump; $t =~ s/ {8}/  /gm;
19          return "<pre>$t</pre>";          return "<pre>$t</pre>";
20  }  }
21    
# Line 46  sub html { Line 48  sub html {
48    
49          $request->print( $self->page(          $request->print( $self->page(
50                  title => $path . '/' . $project->name ,                  title => $path . '/' . $project->name ,
51                  body => pre( $project->dump )                  body => pre_dump( $project )
52          ) );          ) );
53          $request->next;          $request->next;
54  }  }
Legend:
Removed from v.185  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.26