Select Code to Download

package Foo;

...
use base 'Foo::Bar';

1;

package Foo;

...
use base 'Foo';

print "$_ => $Foo::{$_}\n" foreach keys %Foo::;

Bar:: => *Foo::Bar::
VERSION => *Foo::VERSION 
Bar:: => *Foo::Bar::
isa => *Foo::isa
VERSION => *Foo::VERSION

Bar:: => *Foo::Bar:: <br>
VERSION => *Foo::VERSION <br>