sub foo {
   my $self = shift;
   return $self->foobar('foo', @_);
}

sub bar {
   my $self = shift;
   return $self->foobar('bar', @_);
}

sub foobar {
   return 1;
}