ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Borodich 2:5020/400 04 Nov 2003 16:19:19
To : Yury Kopyl
Subject : Re: Hаследование свойств обьекта от нескольких родителей
--------------------------------------------------------------------------------
Yury Kopyl wrote:
> 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;
> }
>
> это хотел?
>
Hе совсем
хотелось иметь именно такие же свойства
причем родителей может быть очень много ;)
--
Sergey Borodich
http://bor.org.ua
--- ifmail v.2.15dev5
* Origin: Global Ukraine free NNTP site (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
