my $object = make_object(); &$object("add-msg", "get-self", sub {return $object}); my $copy = $object; print &$copy("get-self"), "\n"; $object = 42; print &$copy("get-self"), "\n";