meettya Oct 20 2009 at 17:16

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

2 min

+10

Comments 7

DurRandir Oct 21 2009 at 07:53

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

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

meettya Oct 21 2009 at 12:10

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

DurRandir Oct 21 2009 at 12:12

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

meettya Oct 22 2009 at 02:54

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

meettya Nov 24 2009 at 02:40

Посмотрел на Moose — долго и пристально. Ну и что там хорошего? Достека зависимостей, и сплошное волшебство.

Мой лисапед лучше!

albatross Oct 21 2009 at 11:57

Исправьте опечатку в заголовке. Да и саму текстовку будет полезно прогнать через word.
Спасибо за статью.

meettya Oct 21 2009 at 12:10

Досадная оплошность, поправил.
Всегда пожалуйста :).