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