##
package Foo; # not Foo::Bar!!!
sub _aa {
my ( $self, $quux ) = @_;
...;
}
sub _bb {
my ( $self, $fazoo ) = @_;
...;
}
1;
##
##
sub aa {
my ( $self, $args ) = @_;
require Foo::Bar;
my $val = $self->_aa ( $args->{'bar'} );
}