*{$package . "::" . $name} = sub :lvalue {

##</code><code>##

local *call = sub { $self->{$name}->(@_); };