31 |
my $class = $self->class; |
my $class = $self->class; |
32 |
use Pod::Simple::HTML; |
use Pod::Simple::HTML; |
33 |
my $path = eval { $self->class_path( $class ) }; |
my $path = eval { $self->class_path( $class ) }; |
34 |
if ( $@ ) { |
return $self->error( $@ ) if $@; |
|
warn $@; |
|
|
my $error = $@; |
|
|
$error =~ s{\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm; |
|
|
return qq|<div class="error"><pre>$error</pre></div>|; |
|
|
} |
|
35 |
my $pod = read_file( $path ); |
my $pod = read_file( $path ); |
36 |
my $converter = Pod::Simple::HTML->new(); |
my $converter = Pod::Simple::HTML->new(); |
37 |
my $body; |
my $body; |