Select Code to Download

package Foo;
sub aa {
...
sub _bb {
  my $self, $fazoo ) = @_;
}

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

package Foo;
sub aa {
...
  my $val = Foo::Bar::_aa ( $self, $args->{'bar'} );
}
..