#!/usr/bin/perl -w use strict; use Test::Weaken; # new HTML::Element doesn't need delete, -noweak asks for old behaviour use HTML::TreeBuilder '-noweak'; # uncomment this to run the ### lines use Smart::Comments; my $tw = Test::Weaken::leaks ({ constructor => sub { ### constructor ... my $tree = HTML::TreeBuilder->new_from_content (' A Web Page Blah '); # ### $tree return $tree; }, destructor_method => 'delete', }); ### $tw