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; } #### 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/</