Select Code to Download

$class->meta->rebless_instance($object);

class Teacher {
   method teach () { ... }
...
eval {
   $room1->teach;  # dies (no teacher!)
};