in reply to POD-Browser 0.01 released.

Also, due to a bug in Pod::POM, Begin nodes/commands aren't being handled correctly, so what you really want view_begin to look like is
sub view_begin { my ($self, $begin) = @_; return '' unless $begin->format() =~ /\bhtml\b/; require Pod::POM::View::Text; return Pod::POM::View::Text->new($begin)->print; }
That way =begin html <b>bolden</b> does indeed show up as bolden and not as <b>bolden</b>

Since the above approach is theoretically flawed, you could try

sub view_begin { my ($self, $begin) = @_; return '' unless $begin->format() =~ /\bhtml\b/; my $output = $begin->content->present($self); for($output){ s/&amp;/&/gi; s/&quot;/\"/gi; s/&gt;/>/gi; s/&lt;/</gi; } return $output; }
but that one's not that much better either ;) I'm currently working on fixing this in Pod::POM

update: s/=for/=begin/;#D LOL

MJD says you can't just make shit up and expect the computer to know what you mean, retardo!
I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests.
** The Third rule of perl club is a statement of fact: pod is sexy.

Replies are listed 'Best First'.
Re: Re: POD-Browser 0.01 released.
by gmpassos (Priest) on May 02, 2003 at 19:30 UTC
    Pod::POM has another bug, where a =item without title crash the parser:
    =head1 TITLE bla bla bla =item bla bla bla

    Graciliano M. P.
    "The creativity is the expression of the liberty".