print "1..2\n";
use HTML::PullParser;
my $doc = <<'EOT';
Title
Heading
This is a text with a link.
EOT
my $p = HTML::PullParser->new(doc => $doc,
start => 'event,tagname,@attr',
end => 'event,tagname',
text => 'event,dtext',
ignore_elements => [qw(script style)],
unbroken_text => 1,
boolean_attribute_value => 1,
);
my $t = $p->get_token;
print "not " unless $t->[0] eq "start" && $t->[1] eq "title";
print "ok 1\n";
$p->unget_token($t);
my @a;
while (my $t = $p->get_token) {
for (@$t) {
s/\s/./g;
}
push(@a, join("|", @$t));
}
my $res = join("\n", @a, "");
#print $res;
print "not " unless $res eq <<'EOT'; print "ok 2\n";
start|title
text|Title
end|title
text|..
start|h1|id|3
text|Heading
end|h1
text|...This.is.a.text.with.a.
start|a|href|http://www.sol.no|name|l1
text|link
end|a
text|..
EOT