ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Leschenko 2:5020/400 04 Nov 2003 17:46:45
To : Yury Kopyl
Subject : Re: Hаследование свойств обьекта от нескольких родителей
--------------------------------------------------------------------------------
Yury Kopyl wrote:
> SB> package FooBar @ISA = qw( Foo Bar );
а разве не работает?
> sub new{
> my $class=shift;
> my $self=bless ($class,{});
^^^^^^ reverse ? :)
> $self->{_foo}=$self->Foo::new();
> $self->{_bar}=$self->Bar::new();
> return $self;
> }
>
> это хотел?
и как будет выполнятся $FooBar->foo_call(), и $FooBar->bar_call() ?
для всех требуемых методов из Foo и Bar тогда придется обертки писать.
или AUTOLOAD + can ... :-\
--
Best regards,
Sergey
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
