--- trunk/lib/Frey/Pod.pm 2008/07/14 23:12:48 126 +++ trunk/lib/Frey/Pod.pm 2008/07/14 23:39:56 128 @@ -29,8 +29,11 @@ sub markup { warn "## markup ",dump( @_ ); my ( $self, $class ) = @_; + $class ||= $self->class; use Pod::Simple::HTML; - my $pod = read_file( $self->package_path( $class ) ); + my $path = eval { $self->package_path( $class ) }; + return if $@; + my $pod = read_file( $path ); my $converter = Pod::Simple::HTML->new(); my $body; my $my_classes = join('|', $self->classes); @@ -43,9 +46,8 @@ $body =~ s!\n\t!; $body =~ s!

!!; -# $body =~ s!$class$body"; + return $body; } 1;