--- trunk/lib/Frey/Pod.pm	2008/08/31 17:40:33	178
+++ trunk/lib/Frey/Pod.pm	2008/10/31 19:51:51	213
@@ -19,7 +19,7 @@
 use File::Slurp;
 use Data::Dump qw/dump/;
 
-sub html {
+sub request {
 	my ( $self, $req ) = @_;
 	my $f = { $req->params };
 	my $class = delete( $f->{class} ) || $self->class;
@@ -42,6 +42,7 @@
 	$body =~ s{</body>\s*</html>\s*$}{};
 	$body =~ s!%3A%3A!::!g;
 	$body =~ s{<a href="http://search\.cpan\.org/perldoc\?($my_classes)"([^>]*)>}{<a href="/~/$1"$2>}g;
+	$body =~ s{<a href="http://(search\.cpan\.org)/([^"]+)"([^>]*)>}{<a target="$1" href="http://$1/$2"$3>}g;
 	$body =~ s!</li>\n\t<ul>!<ul>!;
 	$body =~ s!</ul>!</ul></li>!;
 	$body =~ s!<p></p>!!;