ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yury Kopyl 2:5020/400 04 Nov 2003 15:53:01
To : Sergey Borodich
Subject : Re: Hаследование свойств обьекта от нескольких родителей
--------------------------------------------------------------------------------
Sergey Borodich -> "Hаследование свойств обьекта от нескольких родителей" :
SB> Hi All
SB> Как можна безболезней реализовать сабж ?
SB> То есть у меня есть
SB> package FooBar @ISA = qw( Foo Bar );
SB> хотелось бы чтобы обьект new FooBar имел свойсва и Foo и Bar
sub new{
my $class=shift;
my $self=bless ($class,{});
$self->{_foo}=$self->Foo::new();
$self->{_bar}=$self->Bar::new();
return $self;
}
это хотел?
Yury Kopyl aka hrg | http://id.totem.ru |
"Хоббиты-маздай! Мордовия-фарева!" (С)Сарумян
--- ifmail v.2.15dev5
* Origin: IAC Samara-Internet, Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
