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

[@DurRandir]

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

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

[@meettya]

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

[@DurRandir]

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

[@meettya]

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

[@meettya]

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

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

[@albatross]

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

[@meettya]

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