19 |
use File::Slurp; |
use File::Slurp; |
20 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
21 |
|
|
22 |
sub html { |
sub request { |
23 |
my ( $self, $req ) = @_; |
my ( $self, $req ) = @_; |
24 |
my $f = { $req->params }; |
my $f = { $req->params }; |
25 |
my $class = delete( $f->{class} ) || $self->class; |
my $class = delete( $f->{class} ) || $self->class; |
31 |
my $class = $self->class; |
my $class = $self->class; |
32 |
use Pod::Simple::HTML; |
use Pod::Simple::HTML; |
33 |
my $path = eval { $self->package_path( $class ) }; |
my $path = eval { $self->package_path( $class ) }; |
34 |
return if $@; |
if ( $@ ) { |
35 |
|
warn $@; |
36 |
|
return; |
37 |
|
} |
38 |
my $pod = read_file( $path ); |
my $pod = read_file( $path ); |
39 |
my $converter = Pod::Simple::HTML->new(); |
my $converter = Pod::Simple::HTML->new(); |
40 |
my $body; |
my $body; |