# create method
    my $eval = "sub $class\:\:$name { goto \$hash{\$_[0]}}\n";
    eval $eval;

##</code><code>##

     *{"${class}::$name"} = $ref;