13.6. Клонирование объектов 467

@ aliases $ addrtype $ length @ addr list

Вы даже можете создавать синонимы в стиле #def ine (впрочем, такая возможность выглядит сомнительно), позволяющие обращаться к одному полю по нескольким именам. В С можно написать:

#define h type h addrtype #define h addr h addr list[0]

В Perl можно попробовать следующий вариант:

# Сделать (hostent object)->type()

# эквивалентным (hostent ob]ect)->addrtype() •hostent::type = \&hostent::addrtype;

# Сделать (hostenv ob]ect)->addr()

# эквивалентным (hostenv ob]ect)->addr list(0) sub hostent::addr { shift->addr list(0,@ ) }

Как видите, вы можете добавлять методы в класс (или функции в пакет) простым объявлением функции в нужном пространстве имен. Для этого необязательно находиться в файле с определением класса, создавать субкласс или делать что-то хитроумное и запутанное. Однако вариант с субклассированием все же смотрится намного лучще:

package Extra::hostent;

use Net;:hostent;

@ISA = qw(hostent);

sub addr { shift->addr list(0,@ ) }

Это рещение взято из стандартного класса Net::hostent. Обратитесь к исходным текстам этого модуля, это весьма вдохновляющее чтение. Впрочем, авторы не несут ответственности за возможные последствия ващего вдохновения.

> Смотри также-

perltoot{i), perlobj{i) и perlbot(iy, документация по стандартному модулю Class::Struct; исходный текст стандартного модуля Net::hostent; документация по модулю Alias с CPAN; рецепт 13.3.

13.6. Клонирование объектов

Проблема

Вы хотите написать конструктор, который может вызываться для существующего объекта.

Решение

Начните свой конструктор примерно так:

ту Sproto = shift;

my Sclass = ref($proto) Sproto;

my Sparent = ref($proto) && Sproto;

Переменная $class содержит класс, к которому выполняется приведение, а переменная Sparent либо равна false, либо ссылается на клонируемый объект.

Комментарий

Иногда требуется создать объект, тип которого совпадает с типом другого, существующего объекта. Вариант:

Sob1 = SomeClass->new(); « Далее

Sob2 = (ref Sob1)->new();

ВЫГЛЯДИТ не очень понятно. Вместо этого хотелось бы иметь конструктор, который может вызываться для класса или существующего объекта. В качестве метода класса он возвращает новый объект, инициализированный по умолчанию. В качестве метода экземпляра он возвращает новый объект, инициализированный данными объекта, для которого он был вызван:

Sobi = Widget->new(); Sob2 = Sob1->new();

Следующая версия new учитывает эти соображения:

sub new {

my Sproto = shift;

my Sclass = ref($proto) Sproto;

my Sparent = ref(Sproto) && Sproto;

my Sself;

S Проверить, переопределяется ли new из @ISA if (@ISA && $proto->SUPER;;can(new) {

Sself = Sproto->SUPER;;new(@ ); > else {

Sself = {};

bless (Sself, Sproto);

bless(Sself, Sclass); Sself->{PARENT} = Sparent;

Sself->{START} = timeO; tt Инициализировать поля данных $self->{AGE} = 0; return Sself;

Инициализация не сводится к простому копированию данных из объекта-прототипа. Если вы пишете класс связанного списка или бинарного дерева, при вы-

13.7. Косвенный вызов методов 469

зове в качестве метода экземпляра ваш конструктор может вернуть новый объект, включенный в дерево или список.

> Смотри также-

perlobjil); рецепты 13.1; 13.9; 13.13.

13.7. Косвенный вызов методов

Проблема

Требуется вызвать метод по имени, которое станет известно лишь во время выполнения программы.

Решение

Сохраните имя метода в строковом виде в скалярной переменной и укажите имя переменной там, где обычно указывается имя метода - справа от оператора ->:

$methname = "flicker";

$ob]->$methname(10); tt Вызывает $ob->flicker(10);

tt Три метода объекта вызываются по именам foreach $Л1 ( qw(start run stop) ) { $ob]->$m();

Комментарий

Имя метода не всегда известно на стадии компиляции. Как известно, получить адрес метода нельзя, но можно сохранить его имя. Если имя хранится в скалярной переменной $meth, то для объекта $crystal этот метод вызывается так: $crystal->$meth().

methods = qw(name rank serno);

%his info = map { $ => $ob->$ () } ©methods;

tt Эквивалентно;

%his info = (

name => $ob->name(), rank => $ob->rank(), serno => $ob->serno(),

Если вам никак не обойтись без получения адреса метода, попробуйте переосмыслить свой алгоритм. Например, вместо неправильной записи \$ob->method(), при которой \ применяется к возвращаемому значению или значениям метода, поступите следующим образом:

ту $fnref = sub { $ob->i))ethod(© ) };