print "1..1\n";
use HTML::Parser;
my $res = "";
sub decl
{
my $t = shift;
$res .= "[" . join("\n", map "<$_>", @$t) . "]";
}
sub text
{
$res .= shift;
}
my $p = HTML::Parser->new(declaration_h => [\&decl, "tokens"],
default_h => [\&text, "text"],
);
$p->parse(<eof;
--
"http://www.w3.org/TR/html40/strict.dtd">
">
">
foo
EOT
print $res;
print "not " unless $res eq <
<"-//W3C//DTD HTML 4.01//EN">
<---->
<"http://www.w3.org/TR/html40/strict.dtd">]
[
<"">]
[
<"">]
foo
EOT