13.3. Работа с данными экземпляра 461

Программисты, которым приходилось работать с объектами С++, привыкли к тому, что к атрибутам объекта можно обращаться из методов в виде простых переменных. Модуль Alias с CPAN обеспечивает эту и многие другие возможности - например, создание открытых методов, которые могут вызываться объектом, но недоступны для кода за его пределами.

Рассмотрим пример создания класса Person с применением модуля Alias. Обновление «магических» переменных экземпляра автоматически обновляет поля данных в хэше. Удобно, правда?

package Person;

и То же, что и раньше... sub new {

my Sthat = shift;

my Sclass = ref($that) Sthat;

my Sself = {

NAME => undef, AGE => undef, PEERS => [],

bless($self, Sclass); return Sself;

>

use Alias qw(attr);

use vars qw(SNAME SAGE SPEERS);

sub name {

my Sself = attr shift;

if (@ ) { SNAME = shift; >

return SNAME;

>

sub age {

my Sself = attr shift; If (@ ) { SAGE = shift; > return SAGE;

>

sub peers {

my Sself = attr shift; if (@ ) { ©PEERS = @ ; > return @PEERS;

>

sub exclaim {

my Sself = attr shift;

return sprintf "Hi, Im %s, age %d, working with %s", SNAME, SAGE, join(", ", ©PEERS);

>

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

perltoot(i), perlobj(\.) иperlbot{i); документация по модулю Alias с CPAN; рецепты 13.11-13.12.

13.4. Управление данными класса

Проблема

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

Решение

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

package Person; $Body Count = 0;

sub population { return $Body Count >

sub new { # Конструктор

$Body Count++; return bless({}, shift);

>

sub DESTROY { --SBodyCount > # Деструктор

# Позднее пользователь может написать; package main;

for (1..10) { push ©people, Person->new >

printf "There are %d people alive.\n", Person->population();

There are 10 people alive.

sub happy birthday {

my Sself = attr shift; return ++$AGE;

Директива use vars понадобилась из-за того, что Alias играет с пакетными глобальными переменными, имена которых совпадают с именами полей. Чтобы использовать глобальные переменные при действующей директиве use strict, необходимо заранее объявить их. Эти переменные локализуются в блоке, содержащем вызов attr(), словно они объявлены с ключевым словом local. Таким образом, они остаются глобальными пакетными переменными с временными значениями.

13.4. Управление данными класса 463

Комментарий

обычно каждый объект обладает определенным состоянием, полная информация о котором хранится в самом объекте. Значение атрибута данных одного объекта никак не связано со значением этого атрибута в другом экземпляре того же класса. Например, присваивание атрибуту gender объекта her никак не влияет на атрибут gender объекта him, поскольку это разные объекты с разным состоянием:

$him = Person->new(); $him->gender("male");

* $her = Person->new(); $her->gender("female");

Представьте атрибут, общий для всего класса - изменение атрибута для одного экземпляра приводит к его изменению для остальных экземпляров. Подобно тому, как имена глобальных переменных часто записываются с больщой буквы, некоторые программисты предпочитают записывать имя символами верхнего регистра, если метод работает с данными класса, а не с данными экземпляра. Рассмотрим пример использования метода класса с именем Max Bounds:

FixedArray->Max Bounds(100); # Устанавливается для всего класса $alpha = FixedArray->new();

printf "Bound on alpha is %d\n", $alpha->Max Bounds(); 100

Sbeta = FixedArray->new();

$beta->Max Bounds(50); # Также устанавливается для всего класса

printf "Bound on alpha is %d\n", $alpha->Max Bounds();

Реализация выглядит просто:

package FixedArray; SBounds =7; # default sub new { bless( {>, shift ) > sub Max Bounds {

my Sproto = shift;

$Bounds = shift if @ ; # Разрешить обновления

return SBounds;

>

Чтобы фактически сделать атрибут доступным только для чтения, просто удалите команды обновления:

sub Max Bounds { SBounds >

Настоящий параноик сделает SBounds лексической переменной, которая ограничена областью действия файла, содержащего класс. В этом случае никто не сможет обратиться к данным класса через SFixedArray: : Bounds. Работать с данными придется через интерфейсные методы.

Следующий совет поможет вам строить расширяемые классы: храните данные объекта в пространстве имен объекта (в хэще), а данные класса - в пространстве имен класса (пакетные переменные или лексические переменные с файловой об-