Select Code to Download

sub new {
    my ($class) = @_;
    return(bless(dog->new(),$class));
}

            sub new {
                    my $type = shift;
...
                    $self->{'biz'} = 11;
                    bless $self, $type;
            }

  DB<3> p UNIVERSAL::isa($self,'Bar');
1