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