--- trunk/lib/Frey/Pod.pm 2008/08/31 17:40:33 178 +++ trunk/lib/Frey/Pod.pm 2008/11/05 19:13:01 308 @@ -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; @@ -30,8 +30,11 @@ my $self = shift; my $class = $self->class; use Pod::Simple::HTML; - my $path = eval { $self->package_path( $class ) }; - return if $@; + my $path = eval { $self->class_path( $class ) }; + if ( $@ ) { + warn $@; + return; + } my $pod = read_file( $path ); my $converter = Pod::Simple::HTML->new(); my $body; @@ -41,7 +44,8 @@ $body =~ s{.*?]+>}{}s; $body =~ s{\s*\s*$}{}; $body =~ s!%3A%3A!::!g; - $body =~ s{]*)>}{}g; + $body =~ s{]*)>}{}g; + $body =~ s{]*)>}{}g; $body =~ s!\n\t

!; $body =~ s!

!!;