##
sub new {
my $type = shift;
my $self = Bar->new;
$self->{'biz'} = 11;
bless $self, $type;
}
##
##
DB<3> p UNIVERSAL::isa($self,'Bar');
1