/[Frey]/branches/no-pager/lib/Frey/Pod.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/no-pager/lib/Frey/Pod.pm

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

revision 379 by dpavlin, Mon Nov 17 18:04:20 2008 UTC revision 691 by dpavlin, Tue Dec 2 22:06:05 2008 UTC
# Line 20  use File::Slurp; Line 20  use File::Slurp;
20  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
21  use Pod::Find qw/pod_where/;  use Pod::Find qw/pod_where/;
22    
23  sub markup {  sub as_markup {
24          my $self = shift;          my $self = shift;
25          my $class = $self->class;          my $class = $self->class;
26          use Pod::Simple::HTML;          use Pod::Simple::HTML;
# Line 41  sub markup { Line 41  sub markup {
41          $body =~ s!</ul>!</ul></li>!;          $body =~ s!</ul>!</ul></li>!;
42          $body =~ s!<p></p>!!;          $body =~ s!<p></p>!!;
43          $body =~ s!__index__!index!g;          $body =~ s!__index__!index!g;
44          return {          $self->title( $class );
45                  title => $class,          return $body;
                 body => $body,  
         };  
46    
47  }  }
48    
Legend:
Removed from v.379  
changed lines
  Added in v.691
  ViewVC Help
Powered by ViewVC 1.1.26