sub legacy_method { my ($self, @args) = @_; return $self->current_method(@_); } #### sub legacy_method { goto(¤t_method); }