Help for this page

Select Code to Download

Select or download this
```
bless(sub {}, 'Foo');
```

Select or download this

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