|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Oleg A. Paraschenko 2:5020/400 06 Jun 2000 14:10:25
To : All
Subject : Re: динамическое наследование
--------------------------------------------------------------------------------
Привет!
Aleksey Barabanov <alekseybb@mtu-net.ru> wrote in message
news:393B9C8F.308579FD@mtu-net.ru...
> ...
> package Персона;
> use Мальчик;
> use Девочка;
>...
Как-то это мне не очень нравится. Может лучше так:
++ Персона.pm
package Персона
...
++ Мальчик.pm
package Мальчик
use Персона
...
++ Девочка.pm
package Девочка
use Персона
...
>Разница заметна только
>на этапе создания экземпляра. Т.е.
>$Саша->Мальчик->new(длинный,худой);
>$Маша->Девочка->new(блондинка,фигуристая);
>Hо хотелось бы и в момент создания экземпляра все вопросы решать сходным
путем:
>$Саша->Персона->new(длинный,худой);
>$Маша->Персона->new(блондинка,фигуристая);
Тогда еще
++ фабрика_мальчиков_и_девочек.pm
package фабрика_мальчиков_и_девочек;
use Мальчик;
use Девочка;
sub дать_мальчика_или_девочку {
...
return new мальчик (...);
...
return new девочка (...);
...
}
и работать с возвращенным объектом дальше как с персоной.
-------
Олег.
--- ifmail v.2.15dev5
* Origin: St.Petersburg University (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
