| 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; |
| 36 |
$body =~ s{</body>\s*</html>\s*$}{}; |
$body =~ s{</body>\s*</html>\s*$}{}; |
| 37 |
$body =~ s!%3A%3A!::!g; |
$body =~ s!%3A%3A!::!g; |
| 38 |
# $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; |
| 39 |
$body =~ s{<a href="http://(search\.cpan\.org/perldoc\?)([^"]+)"([^>]*)>([^<]+)<([^>]+)>}{<a href="/$2"$3>$4<$5><sup><a target="$1" title="CPAN" style="text-decoration: none" href="http://$1/$2"$3>◊<$5></sup>}g; |
$body =~ s{<a href="http://(search\.cpan\.org/perldoc\?)([^"]+)"([^>]*)>([^<]+)<([^>]+)>}{<a href="/$2"$3>$4<$5><sup><a target="$1" title="CPAN" style="text-decoration: none" href="http://$1$2"$3>◊<$5></sup>}g; |
| 40 |
$body =~ s!</li>\n\t<ul>!<ul>!; |
$body =~ s!</li>\n\t<ul>!<ul>!; |
| 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; |
return { |
| 45 |
|
title => $class, |
| 46 |
|
body => $body, |
| 47 |
|
}; |
| 48 |
|
|
| 49 |
} |
} |
| 50 |
|
|
| 51 |
1; |
1; |
Parent Directory
| 
Revision Log
| 
Patch