30 |
my $self = shift; |
my $self = shift; |
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->class_path( $class ) }; |
34 |
if ( $@ ) { |
if ( $@ ) { |
35 |
warn $@; |
warn $@; |
36 |
return; |
return qq|<div class="error"><code>$@</code></div>|; |
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(); |