Select Code to Download

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

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