package Foo;  # not Foo::Bar!!!
sub _aa {
  my ( $self, $quux ) = @_;
  ...;
}
sub _bb {
  my ( $self, $fazoo ) = @_;
  ...;
}
1;