Когда придет время косвенного вызова этого метода, напишите:

$fnref->(10, "fred"); и это даст правильный вызов метода:

$ob]->method(10, "fred");

Такое решение работает даже в том случае, если $оЬ находится вне области действия и потому является предпочтительным.

Ссылку на код, возвращаемую методом сап() класса UNIVERSAL, вероятно, не следует использовать для косвенного вызова методов. Нельзя быть уверенным в том, что она будет соответствовать правильному методу для объекта произвольного класса.

Например, следующий фрагмент крайне сомнителен:

$ob]->can(method name)->($obj target, ©arguments) if $ob] target->isa( ref $ob] );

Ссылка, возвращаемая сап, может и не соответствовать правильному методу для $оЬ]2. Вероятно, разумнее ограничиться проверкой метода сап() в логическом условии.

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

perlobj(iy, рецепт 11.8.

13.8. Определение принадлежности субкласса

Проблема

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

Решение

Воспользуйтесь методами специального класса UNIVERSAL:

$ob]->isa("HrrP::Message"); п Как метод объекта

HTTPResponse->isa("HTTP: iMessage"); tt Как метод класса

If ($ob]->can("method name")) { - } » Проверка метода

Комментарий

Для нас было бы очень удобно, чтобы все объекты в конечном счете происходили от общего базового класса. Тогда их можно было бы наделить общими методами, не дополняя по отдельности каждый массив @ISA. В действительности такая возможность существует. Хотя вы этого не видите, но Perl считает,

13.8. Определение принадлежности субкласса 471

что в конце @ISA находится один дополнительный элемент - пакет с именем UNIVERSAL.

В версии 5.003 класс UNIVERSAL не содержал ни одного стандартного метода, но вы могли занести в него все, что считали нужным. Однако в версии 5.004 UNIVERSAL уже содержит несколько методов. Они встроены непосредственно в двоичный файл Perl и потому на их загрузку не расходуется дополнительное время. К числу стандартных методов относятся isa, can и VERSION. Метод isa сообщает, «является ли» (is а) объект или класс чем-то другим, избавляя вас от необходимости самостоятельно просматривать иерархию:

$has io = $fd->isaCTO. :Handle"); $itza handle = 10 Socket->isaCTO Handle),

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

Метод сап вызывается для объекта или класса и сообщает, соответствует ли его строковый аргумент допустимому имени метода для данного класса. Он возвращает ссылку на функцию данного метода:

$his print method = $ob]->can(as string),

Наконец, метод VERSION проверяет, содержит ли класс (или класс объекта) пакетную глобальную переменную $VERSION с достаточно высоким значением:

Some Module->VERSI0N(3.0): $his vers = $ob]->VERSION();

Тем не менее нам обычно не приходится вызывать VERSION самим. Вспомните: имена функций, записанные в верхнем регистре, означают, что функция вызывается Perl автоматически. В нашем случае это происходит, когда в программе встречается строка вида:

use Some Module 3 0;

Если вам захочется включить проверку версии в класс Person, описанный выше, добавьте в файл Person.pm следующий фрагмент:

use vars qw($VERSION); SVERSION = 1.01;

Затем в пользовательской программе ставится команда use Ре rson 1.01; - это позволяет проверить версию и убедиться в том, что она равна указанной или превышает ее. Помните, что версия не обязана точно совпадать с указанной, а должна быть не меньше ее. Впрочем, в настоящее время параллельная установка нескольких версий одного модуля не поддерживается.

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

Документация по стандартному модулю UNIVERSAL. Ключевое слово use описано в рег мпс(1).

13.9. Создание класса с поддержкой наследования

Проблема

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

Решение

Воспользуйтесь «проверкой пустого субкласса».

Комментарий

Допустим, вы реализовали класс Person с конструктором new и методами age и name. Тривиальная реализация выглядит так:

package Person; sub new {

my Sclass = shift;

my Sself = { },

return bless Sself, Sclass,

sub name {

my Sself = shift; Sself->{NAME} = shift if @ ; return $self->{NAME};

sub age {

my Sself = shift, Sself->{AGE} = shift if @ , return Sself->{AGE};

Пример использования класса может выглядеть так:

use Person,

my Sdude = Person->new(); $dude->name("Jason"); Sdude->age(23),

printf %s is age %d \n, Sdude->name, $dude->age;

Теперь рассмотрим другой класс с именем Employee;

package Employee; use Person, @ISA = (Person"); 1;

Ничего особенно интересного. Класс всего лишь загружает класс Person и заявляет, что все необходимые методы Employee наследует от Person. Поскольку Employee не имеет собственных методов, он получит от Person все методы.