sub foo {
   my $self = shift;
   return $self->foobar('FOO', @_);
}
sub bar {
   my $self = shift;
   return $self->foobar('BAR', @_);
}
sub oof {
   my $self = shift;
   return $self->foobar('OOF', @_);
}
sub rab {
   my $self = shift;
   return $self->foobar('RAB', @_);
}