/[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 127 by dpavlin, Mon Jul 14 23:12:48 2008 UTC revision 128 by dpavlin, Mon Jul 14 23:39:56 2008 UTC
# Line 29  sub html { Line 29  sub html {
29  sub markup {  sub markup {
30          warn "## markup ",dump( @_ );          warn "## markup ",dump( @_ );
31          my ( $self, $class ) = @_;          my ( $self, $class ) = @_;
32            $class ||= $self->class;
33          use Pod::Simple::HTML;          use Pod::Simple::HTML;
34          my $pod = read_file( $self->package_path( $class ) );          my $path = eval { $self->package_path( $class ) };
35            return if $@;
36            my $pod = read_file( $path );
37          my $converter = Pod::Simple::HTML->new();          my $converter = Pod::Simple::HTML->new();
38          my $body;          my $body;
39          my $my_classes = join('|', $self->classes);          my $my_classes = join('|', $self->classes);
# Line 43  sub markup { Line 46  sub markup {
46          $body =~ s!</li>\n\t<ul>!<ul>!;          $body =~ s!</li>\n\t<ul>!<ul>!;
47          $body =~ s!</ul>!</ul></li>!;          $body =~ s!</ul>!</ul></li>!;
48          $body =~ s!<p></p>!!;          $body =~ s!<p></p>!!;
 #       $body =~ s!<a name=!<a id=!g;  
49          $body =~ s!__index__!index!g;          $body =~ s!__index__!index!g;
50          return "<h1>$class</h1>$body";          return $body;
51  }  }
52    
53  1;  1;
Legend:
Removed from v.127  
changed lines
  Added in v.128
  ViewVC Help
Powered by ViewVC 1.1.26