perl - <<'__EOP__'
use HTML::TreeBuilder;
print($HTML::TreeBuilder::VERSION, "\n");
print($INC{'HTML/TreeBuilder.pm'}, "\n");
my $tree = HTML::TreeBuilder->new;
print($tree, "\n");
$tree->parse_file('file.html');
print($tree, "\n");
print('new_from_content: ',
$::{'HTML::'}{'TreeBuilder::'}{'new_from_content'}?'yes':'no',
"\n");
print('stunt: ',
$::{'HTML::'}{'TreeBuilder::'}{'stunt' }?'yes':'no',
"\n");
print('disembowel: ',
$::{'HTML::'}{'TreeBuilder::'}{'disembowel' }?'yes':'no',
"\n");
__EOP__
HTML-Tree-3.11 looks like:
3.11
r:/Utils/perl/site/lib/HTML/TreeBuilder.pm
HTML::TreeBuilder=HASH(0x1abf008)
HTML::TreeBuilder=HASH(0x1abf008)
new_from_content: yes
stunt: yes
disembowel: no
Disembowel doesn't exist in this version.
HTML-Tree-3.18 should look like:
3.13
r:/Utils/perl/site/lib/HTML/TreeBuilder.pm
HTML::TreeBuilder=HASH(0x1abf008)
HTML::TreeBuilder=HASH(0x1abf008)
new_from_content: yes
stunt: yes
disembowel: yes
|