--- trunk/lib/Frey/Pod.pm 2008/11/15 16:11:27 345 +++ trunk/lib/Frey/Pod.pm 2008/11/16 15:49:49 356 @@ -18,6 +18,7 @@ use File::Slurp; use Data::Dump qw/dump/; +use Pod::Find qw/pod_where/; sub request { my ( $self, $req ) = @_; @@ -30,11 +31,8 @@ my $self = shift; my $class = $self->class; use Pod::Simple::HTML; - my $path = eval { $self->class_path( $class ) }; - if ( $@ ) { - warn $@; - return qq|
$@