--- trunk/lib/Frey/Pod.pm 2008/11/19 15:28:23 455 +++ branches/no-pager/lib/Frey/Pod.pm 2008/12/03 21:12:43 702 @@ -25,7 +25,7 @@ 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; @@ -41,11 +41,8 @@ $body =~ s!!!; $body =~ s!

!!; $body =~ s!__index__!index!g; - return $body unless wantarray; - return { - title => $class, - body => $body, - }; + $self->title( $class ); + return $body; }