$ perl reblesser.pl
before: a boo
[DEBUG] reblessing boo=HASH(0x102efcf8) to bar
within: a bar
[DEBUG] reverting blessing on bar=HASH(0x102efcf8): back to boo
after: a boo