#!perl -w
use strict;
use HTML::Parser;
use Test::More tests => 4;
my $TEXT = "";
sub h
{
my($event, $tagname, $text, @attr) = @_;
for ($event, $tagname, $text, @attr) {
if (defined) {
s/([\n\r\t])/sprintf "\\%03o", ord($1)/ge;
}
else {
$_ = "";
}
}
$TEXT .= "[$event,$tagname,$text," . join(":", @attr) . "]\n";
}
my $p = HTML::Parser->new(default_h => [\&h, "event,tagname,text,\@attr"]);
$p->parse("");
$p->parse("");
$p->parse("' 'bar>' x>");
$p->parse("\"");
$p->parse(" \"bar>\" x>");
$p->parse(" foo bar>");
$p->parse(" \"<>\" >");
$p->parse("