1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
use Test::More tests => 1; eval { require HTML::HeadParser; $p = HTML::HeadParser->new; }; SKIP: { skip $@, 1 if $@ =~ /^Can't locate HTTP/; $p = HTML::HeadParser->new($h); $p->parse(<<EOT); <title>Stupid example</title> <base href="http://www.sn.no/libwww-perl/"> Normal text starts here. EOT $h = $p->header; undef $p; is($h->title, "Stupid example"); }