Приветствую.

Разбираюсь тут со всеми хитростями ООП.
Возник вопрос:

Код

# есть класс родитель package First; {   sub new {      my $self = shift;      return bless({}, $self);   } } # есть потомок package First::Second; {   use base ("First");   sub func1 {      my $self = shift;      return "func1";   } } # двойное наследование package First::FirstSecond; {   use base ("First");   use base ("First::Second");   sub func2 {      my $self = shift;      return "func2";   } }

Можно ли делать делать двойное наследование, если предок один?
Я вроде так сделал, никаких проблем вроде не было.
Но всетаки есть сомнения. Ведь получается класс FirstSecond наследует один и тот же метод new 2 раза.

Это сообщение отредактировал(а) Vaneska - 19.10.2005, 23:31

Он не наследывает два раза, просто new перекрывается.

Цитата

Но всетаки есть сомнения. Ведь получается класс FirstSecond наследует один и тот же метод new 2 раза.

Прочь сомнения.
Когда ты вызываешь какой либо метод, Perl пытается сначала найти его в текущем пакете. Если ему это не удалось, то он проверяет массив @ISA по порядку и сначала вглубь. Это значит, если у нас какой либо класс является дочерним для нескольких родительских классов:

Код

push( @ISA, "First", "Second", "Third" );

То сначала Perl будет искать метод, который ему не удалось найти в текущем пакете в родительском классе First, если и там его не окажется, то он проверит массив @ISA класса First. Если у класса First найден родитель, то следующим шагом будет поиск в его родителях и так до тех пор, пока у одного из родительских классов для класса First не будет найден предок. Если ему так и не удалось найти вызываемый метод, он возвращается в текущий пакет и проверяет следующего родителя, в данном случае, класс Second и точно так же, снача вглубь. Будет вызван тот метод new, который будет быстрее всего найден.

Потому и происходит так-называемое перекрытие, все методы текщего пакета перекрывают методы родителей, методы первого родителя перекрывают, методы следующего родителя и т.д. Если же нужно унаследовать какой-либо метод и просто добавить ему чего-нить нового, то можешь определить его в своём классе, а затем обратиться к этому методу из родительского класса.

Код

sub hello {        my $self = shift;        my $name = shift || "Anonim";        $self->SUPER::hello( $name ); }

А вот этот метод в родителе:

Код

sub hello {        my $self = shift;        print ( shift ); }

Это сообщение отредактировал(а) korob2001 - 20.10.2005, 22:31

Большое спасибо!
korob2001, тебе как всегда почет и уважение!