package Foo::Bar; sub _aa { my $self, $quux ) = @_; } ..