--- trunk/lib/Frey/Pod.pm 2008/11/15 16:10:45 344 +++ trunk/lib/Frey/Pod.pm 2008/12/02 22:06:05 691 @@ -18,23 +18,14 @@ use File::Slurp; use Data::Dump qw/dump/; +use Pod::Find qw/pod_where/; -sub request { - my ( $self, $req ) = @_; - my $f = { $req->params }; - my $class = delete( $f->{class} ) || $self->class; - $req->print( $self->page( title => $class, body => $self->markup( $class ) ) ); -} - -sub markup { +sub as_markup { my $self = shift; my $class = $self->class; use Pod::Simple::HTML; - my $path = eval { $self->class_path( $class ) }; - if ( $@ ) { - warn $@; - return qq|
$@