--- trunk/lib/Frey/Pod.pm 2008/11/05 08:20:45 271
+++ trunk/lib/Frey/Pod.pm 2008/11/15 16:29:26 346
@@ -30,10 +30,12 @@
my $self = shift;
my $class = $self->class;
use Pod::Simple::HTML;
- my $path = eval { $self->package_path( $class ) };
+ my $path = eval { $self->class_path( $class ) };
if ( $@ ) {
warn $@;
- return;
+ my $error = $@;
+ $error =~ s{\s+(\S+)\s+line\s+(\d+)}{ $1 line $2}gsm;
+ return qq||;
}
my $pod = read_file( $path );
my $converter = Pod::Simple::HTML->new();
@@ -44,7 +46,7 @@
$body =~ s{.*?]+>}{}s;
$body =~ s{\s*