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>!!; |
44 |
return { |
return { |
45 |
title => $class, |
title => $class, |
46 |
body => $body, |
body => $body, |
47 |
} if wantarray; |
}; |
48 |
return $body; |
|
49 |
} |
} |
50 |
|
|
51 |
1; |
1; |