Select Code to Download

...
lib/B.pm
...
lib/C/C1.pm
...

package C::C1;

use C1;

my $c1 = C1::->new();

use C::C1;

my $c1 = C::C1::->new();

$ ./acd.pl
A=HASH(0x9897d0)
...
D-bar
whos_who() is in package: C
$self is in package: C::C1