Re: POD-Browser 0.01 released.

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;
}
[download]

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;
}
[download]

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.

In Section Perl News