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; |
my $error = $@; |
37 |
|
$error =~ s{\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm; |
38 |
|
return qq|<div class="error"><pre>$error</pre></div>|; |
39 |
} |
} |
40 |
my $pod = read_file( $path ); |
my $pod = read_file( $path ); |
41 |
my $converter = Pod::Simple::HTML->new(); |
my $converter = Pod::Simple::HTML->new(); |