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