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

I have to disagree with this one. you're not referring to "self" (in OO terms), but merely to the (lexical, in this case) variable $object. consider this:

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";
[download]

CODE(0x18350d8)
42
[download]

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris