--- trunk/lib/Frey/Pod.pm 2008/07/14 23:12:48 126 +++ trunk/lib/Frey/Pod.pm 2008/11/15 16:11:27 345 @@ -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; @@ -27,25 +27,30 @@ } sub markup { - warn "## markup ",dump( @_ ); - my ( $self, $class ) = @_; + my $self = shift; + my $class = $self->class; use Pod::Simple::HTML; - my $pod = read_file( $self->package_path( $class ) ); + my $path = eval { $self->class_path( $class ) }; + if ( $@ ) { + warn $@; + return qq|
$@