Select Code to Download

# an object could manipulate itself
&$object("add-msg", "get-self", sub {return $object});

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

CODE(0x18350d8)
42