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