--- trunk/lib/Frey/Pod.pm 2008/07/14 23:50:16 130 +++ trunk/lib/Frey/Pod.pm 2008/07/15 19:10:56 138 @@ -27,7 +27,6 @@ } sub markup { - warn "## markup ",dump( @_ ); my ( $self, $class ) = @_; $class ||= $self->class; use Pod::Simple::HTML; @@ -37,13 +36,12 @@ my $converter = Pod::Simple::HTML->new(); my $body; my $my_classes = join('|', $self->classes); - warn "my_classes: $my_classes"; $converter->output_string( \$body ); $converter->parse_string_document($pod); $body =~ s{.*?]+>}{}s; $body =~ s{\s*\s*$}{}; $body =~ s!%3A%3A!::!g; - $body =~ s{]*)>}{}g; + $body =~ s{]*)>}{}g; $body =~ s!\n\t

!; $body =~ s!

!!;