Select Code to Download

bless(sub {}, 'Foo');

perl -e '{package Foo; sub DESTROY { print "d\n"; } bless( {}, 'Foo');
+}'
# d
perl -e '{package Foo; sub DESTROY { print "d\n"; } bless(sub {}, 'Foo
+');}
# no d