%Bar:: = %Foo::;
my $x = Bar::new('Bar');