#!/usr/bin/perl
use HTML::TreeBuilder::XPath -weak;
use strict;
use warnings;
my $ent = HTML::TreeBuilder::XPath->new;
$ent->parse_file(\*DATA);
eval {
no warnings 'recursion';
$ent->delete;
};
if ($@) {
print "FOO\n";
}
exit(0);
__DATA__
foo bar
foo
bar
(baz)