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