sub legacy_method {
   &current_method;
}

##</code><code>##

sub legacy_method {
   my $self = shift;
   $self->current_method(@_);
}