>>678
初期化処理は別メソッドにしてnewはblessした後に初期化メソッドを呼ぶだけ
にする。

package Parent;

sub new {
my($class, @args) = @_;

my $self = bless {}, $class;
$self->initialize(@args);
return $self;
}

sub initialize {
my($self, ...) = @_;

# Parentの初期化処理
...
}

package Child;
use base qw(Parent);

sub initialize {
my($self, ...) = @_;

$self->SUPER::initialize(...);

# Child の初期化処理
...
}