Help for this page
sub legacy_method { ¤t_method; }
sub legacy_method { my $self = shift; $self->current_method(@_); }