|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yury Kopyl 2:5020/400 05 Nov 2003 09:16:48
To : Sergey Leschenko
Subject : Re: Hаследование свойств обьекта от нескольких родителей
--------------------------------------------------------------------------------
Sergey Leschenko -> "Re: Hаследование свойств обьекта от нескольких
родителей" :
SL> Yury Kopyl wrote:
SB>>> package FooBar @ISA = qw( Foo Bar );
SL> а разве не работает?
Тогда придется четко планировать классы, чтобы методы не перекрывались.
>> sub new{
>> my $class=shift;
>> my $self=bless ($class,{});
SL> ^^^^^^ reverse ? :)
>> $self->{_foo}=$self->Foo::new();
>> $self->{_bar}=$self->Bar::new();
>> return $self;
>> }
>> это хотел?
SL> и как будет выполнятся $FooBar->foo_call(), и $FooBar->bar_call() ?
SL> для всех требуемых методов из Foo и Bar тогда придется обертки
SL> писать.
SL> или AUTOLOAD + can ... :-\
Как вариантег, при инициализации, пихать в таблицу методов нужные из
родительских классов.
Yury Kopyl aka hrg | http://id.totem.ru | Все вышесказанное является моим
личным мнением и может быть использовано против вас
--- ifmail v.2.15dev5
* Origin: IAC Samara-Internet, Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
