meettya 20 окт 2009 в 17:16

Эффектное создание объектов в Perl

2 мин

956

Чулан

+10

Комментарии 7

DurRandir 21 окт 2009 в 07:53

Если у вас не-legacy OO-система, смотрите в сторону Moose. Там есть всё, и ещё чуть-чуть :)

ЗЫ: за bless({}, ref $invocant || $invocant) я бы лично закапывал на месте :) Не должно быть возможности вызвать new() на объекте.

meettya 21 окт 2009 в 12:10

Поркуа же «закапывать»?
Что Вам мешает спроектировать объект с дефолтными свойствами, достаточными для его функционирования? Или я Вас неверно понял?

DurRandir 21 окт 2009 в 12:12

Либо Package->new(), либо $obj->copy(). Не должно быть возможности сделать $obj->new()->new().

meettya 22 окт 2009 в 02:54

ИМХО если человек хочет сделать $obj->new()->new() — не мне его отговаривать :)
Как повествует верблюдо-книжка «Perl дает веревку достаточно длинную, чтобы на ней можно было повесится».