--- trunk/lib/Frey/Pod.pm 2008/11/15 16:29:26 346 +++ trunk/lib/Frey/Pod.pm 2009/02/03 21:24:02 1034 @@ -7,37 +7,35 @@ =cut -extends 'Frey::ClassLoader'; +extends 'Frey::Class::Loader'; with 'Frey::Web'; +with 'Frey::File'; has 'class' => ( is => 'rw', isa => 'Str', required => 1, + default => 'Frey::Manual', ); -use File::Slurp; +use Pod::Find qw/pod_where/; use Data::Dump qw/dump/; -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 ) ) ); -} +=head2 as_markup + + my $html = $o->as_markup; + + my ( $toc_html, $html ) = $o->as_markup; -sub markup { +=cut + +sub as_markup { my $self = shift; my $class = $self->class; use Pod::Simple::HTML; - my $path = eval { $self->class_path( $class ) }; - if ( $@ ) { - warn $@; - my $error = $@; - $error =~ s{\s+(\S+)\s+line\s+(\d+)}{ $1 line $2}gsm; - return qq|
$error