*Bar::new = \*Foo::new;

##</code><code>##

Expected class: Bar

##</code><code>##

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

##</code><code>##

Undefined subroutine &Bar::new