*{$new_method} = sub { my $self = shift; $self->$main_spelling(@_) }

##</code><code>##

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