sub _code : lvalue { $code{ refaddr shift} }

##</code><code>##

sub _code : lvalue {
    my $obj = shift;
    return $obj unless caller eq __PACKAGE__;
    $code{ refaddr $obj};
}