/[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 178 by dpavlin, Sun Aug 31 17:40:33 2008 UTC revision 213 by dpavlin, Fri Oct 31 19:51:51 2008 UTC
# Line 19  has 'class' => ( Line 19  has 'class' => (
19  use File::Slurp;  use File::Slurp;
20  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
21    
22  sub html {  sub request {
23          my ( $self, $req ) = @_;          my ( $self, $req ) = @_;
24          my $f = { $req->params };          my $f = { $req->params };
25          my $class = delete( $f->{class} ) || $self->class;          my $class = delete( $f->{class} ) || $self->class;
# Line 42  sub markup { Line 42  sub markup {
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="/~/$1"$2>}g;          $body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/~/$1"$2>}g;
45            $body =~ s{<a href="http://(search\.cpan\.org)/([^"]+)"([^>]*)>}{<a target="$1" href="http://$1/$2"$3>}g;
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>!!;
Legend:
Removed from v.178  
changed lines
  Added in v.213
  ViewVC Help
Powered by ViewVC 1.1.26