sub t01_as_xhtml : Test { my $t= shift; my $x = $t->parse_to_xhtml( <<T); =para Text < >   « E<lt;gt> T ok $x =~ /&laquo;/; }

sub t03_as_xhtml : Test { my $t= shift; my $x = $t->parse_to_xhtml( <<T); =begin pod E< lt ; LEFT DOUBLE ANGLE BRACKET > =cend pod

T ok $x =~ /&lt;&#12298;/; } 1;

3 POD Errors

The following errors were encountered while parsing the POD:

Around line 19:

Unknown directive: =para

Around line 27:

Unknown E content in E<lt;gt>

Around line 36:

Unknown E content in E< lt ; LEFT DOUBLE ANGLE BRACKET >