Select Code to Download

package InlineTest;
use strict;
...
my $t = InlineTest->new( x => 'foo' );

print $t->x, "\n";

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