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