package Foo; sub _init { shift->{foo} = 1 } sub new { my $class = shift; my $self = bless {}, $class; $self->Foo::_init; $self; } package Bar; use base qw(Foo); sub _init { shift->{bar} = 2 } sub new { my $class = shift; my $self = $class->SUPER::new; $self->Bar::_init; $self; }