Select Code to Download

$ cat lib/A.pm 
package A;
...
);

__PACKAGE__->meta->make_immutable;

$ cat lib/C.pm
package C;
...
}

__PACKAGE__->meta->make_immutable;

$ cat lib/D.pm
package D;
...
);

__PACKAGE__->meta->make_immutable;

$ cat lib/C1.pm
package C1;
...
}

__PACKAGE__->meta->make_immutable;

$ cat ./acd.pl
#!/usr/bin/env perl
...
my $c1 = C1::->new();

$c1->foo();

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