sub fooge_default
{
  my $self = shift;

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