/[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

trunk/lib/Frey/Pod.pm revision 455 by dpavlin, Wed Nov 19 15:28:23 2008 UTC branches/no-pager/lib/Frey/Pod.pm revision 702 by dpavlin, Wed Dec 3 21:12:43 2008 UTC
# Line 25  sub as_markup { Line 25  sub as_markup {
25          my $class = $self->class;          my $class = $self->class;
26          use Pod::Simple::HTML;          use Pod::Simple::HTML;
27          my $path = pod_where( { -inc => 1 }, $class );          my $path = pod_where( { -inc => 1 }, $class );
28          return $self->error( "Can't find pod for $class" ) unless $path;          return $self->error( "Can't find pod for $class\n" ) unless $path;
29          my $pod = read_file( $path );          my $pod = read_file( $path );
30          my $converter = Pod::Simple::HTML->new();          my $converter = Pod::Simple::HTML->new();
31          my $body;          my $body;
# Line 41  sub as_markup { Line 41  sub as_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 $body unless wantarray;          $self->title( $class );
45          return {          return $body;
                 title => $class,  
                 body => $body,  
         };  
46    
47  }  }
48    
Legend:
Removed from v.455  
changed lines
  Added in v.702
  ViewVC Help
Powered by ViewVC 1.1.26