Help for this page

Select Code to Download


  1. or download this
    package boo;

...
print "before: ", $obj->to_s, "\n"; # "a boo"
doit($obj);
print "after: ", $obj->to_s, "\n"; # "a boo" again
  2. or download this
    $ perl reblesser.pl
before: a boo
...
within: a bar
[DEBUG] reverting blessing on bar=HASH(0x102efcf8): back to boo
after: a boo
  3. or download this
    package Reblesser;

...
        bless $obj, $pkg;
    }
}