note
PodMaster
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
<CODE>
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;
}
</CODE>
That way <CODE>=begin html <b>bolden</b></CODE> does indeed show up as
<b>bolden</b> and not as <b>bolden</b>
<p>
Since the above approach is <strike>theoretically</strike> flawed, you could try
<CODE>
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;
}
</CODE>
but that one's not <B>that</B> much better either ;) I'm currently working on fixing this in Pod::POM
<P>
<B>update:</B> s/=for/=begin/;#D LOL
<p>
<table border=0><tr><td>
<font size=1>
<hr>
[MJD] [http://www.perl.org/yapc/2002/movies/themovie/|says] you <i>
can't just make shit up and expect the computer to know what you mean, retardo</i>!
<hr width="50%" align=left>
I run a Win32 PPM
[id://162391|repository] for perl [http://crazyinsomniac.perlmonk.org/perl/ppm/|5.6x]+[http://crazyinsomniac.perlmonk.org/perl/ppm/5.8|5.8x]. I take requests.
<hr width="50%" align=left>
** The Third rule of perl club is a statement of fact: pod <I>is</I> sexy.</font>
</td></tr></table>
254944
254944