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/&/&/gi;
s/"/\"/gi;
s/>/>/gi;
s/</</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.
|