package Foo;

package Foo::Bar;
use base 'Foo';

package Foo::Bar::Test;
use base 'Foo::Bar';

1;

##</code><code>##

package Foo;

package Foo::Bar;
use base 'Foo';

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

##</code><code>##

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

##</code><code>##

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