##
package Foo;
package Foo::Bar;
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::
VERSION => *Foo::VERSION