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

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

revision 357 by dpavlin, Sun Nov 16 15:49:49 2008 UTC revision 358 by dpavlin, Sun Nov 16 16:36:53 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    
 sub request {  
         my ( $self, $req ) = @_;  
         my $f = { $req->params };  
         my $class = delete( $f->{class} ) || $self->class;  
         $req->print( $self->page( title => $class, body => $self->markup( $class ) ) );  
 }  
   
23  sub markup {  sub markup {
24          my $self = shift;          my $self = shift;
25          my $class = $self->class;          my $class = $self->class;
# Line 48  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 {
45                    title => $class,
46                    body => $body,
47            } if wantarray;
48          return $body;          return $body;
49  }  }
50    
Legend:
Removed from v.357  
changed lines
  Added in v.358
  ViewVC Help
Powered by ViewVC 1.1.26