- or download this
package Foo;
sub aa {
...
sub _bb {
my $self, $fazoo ) = @_;
}
- or download this
package Foo::Bar;
sub _aa { my $self, $quux ) = @_; }
..
- or download this
package Foo;
sub aa {
...
my $val = Foo::Bar::_aa ( $self, $args->{'bar'} );
}
..