sub Whiner::DESTROY { print "Dying!\n" }
my $t = InlineTest->new( x => bless [], 'Whiner' );

print $t->x, "\n";
undef $t;
print "Done.\n";