/[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 136 by dpavlin, Tue Jul 15 17:14:33 2008 UTC revision 178 by dpavlin, Sun Aug 31 17:40:33 2008 UTC
# Line 27  sub html { Line 27  sub html {
27  }  }
28    
29  sub markup {  sub markup {
30          my ( $self, $class ) = @_;          my $self = shift;
31          $class ||= $self->class;          my $class = $self->class;
32          use Pod::Simple::HTML;          use Pod::Simple::HTML;
33          my $path = eval { $self->package_path( $class ) };          my $path = eval { $self->package_path( $class ) };
34          return if $@;          return if $@;
# Line 41  sub markup { Line 41  sub markup {
41          $body =~ s{.*?<body [^>]+>}{}s;          $body =~ s{.*?<body [^>]+>}{}s;
42          $body =~ s{</body>\s*</html>\s*$}{};          $body =~ s{</body>\s*</html>\s*$}{};
43          $body =~ s!%3A%3A!::!g;          $body =~ s!%3A%3A!::!g;
44          $body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/pod/$1"$2>}g;          $body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/~/$1"$2>}g;
45          $body =~ s!</li>\n\t<ul>!<ul>!;          $body =~ s!</li>\n\t<ul>!<ul>!;
46          $body =~ s!</ul>!</ul></li>!;          $body =~ s!</ul>!</ul></li>!;
47          $body =~ s!<p></p>!!;          $body =~ s!<p></p>!!;
Legend:
Removed from v.136  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.26