--- trunk/lib/Frey/Pod.pm	2008/11/16 16:36:53	358
+++ trunk/lib/Frey/Pod.pm	2008/12/02 22:16:17	694
@@ -20,12 +20,12 @@
 use Data::Dump qw/dump/;
 use Pod::Find qw/pod_where/;
 
-sub markup {
+sub as_markup {
 	my $self = shift;
 	my $class = $self->class;
 	use Pod::Simple::HTML;
 	my $path = pod_where( { -inc => 1 }, $class );
-	return $self->error( "Can't find pod for $class" ) unless $path;
+	return $self->error( "Can't find pod for $class\n" ) unless $path;
 	my $pod = read_file( $path );
 	my $converter = Pod::Simple::HTML->new();
 	my $body;
@@ -36,16 +36,14 @@
 	$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/perldoc\?)([^"]+)"([^>]*)>([^<]+)<([^>]+)>}{<a href="/$2"$3>$4<$5><sup><a target="$1" title="CPAN" style="text-decoration: none" href="http://$1/$2"$3>&loz;<$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>&loz;<$5></sup>}g;
 	$body =~ s!</li>\n\t<ul>!<ul>!;
 	$body =~ s!</ul>!</ul></li>!;
 	$body =~ s!<p></p>!!;
 	$body =~ s!__index__!index!g;
-	return {
-		title => $class,
-		body => $body,
-	} if wantarray;
+	$self->title( $class );
 	return $body;
+
 }
 
 1;