Select Code to Download

sub fooge_default
{
...

  $self->fooge(@_);  # Blind parameter passing
}

sub fooge_default
{
...

  goto &$self->fooge;  # Not entirely sure of the syntax
}

sub fooge
{
...

  # ...
}