*{$new_method} = sub { goto &{$_[0]->can($main_spelling)} }