make object instance immutable

Question

Я хочу, чтобы иметь возможность создавать объект на основе Moose, добавить к нему, пока я не сериализую его, а затем я хочу сделать его неизменным. Как я могу это сделать?

Answer 1

я не знаю (и не могу легко найти) любые модули, чтобы сделать это на CPAN, который является удивительным, но объясняет, почему вы спрашиваете :-)

А «до того» модификатор над всеми своими атрибутами это очевидный способ сделать это. Я уверен, что есть подходящий метапрограммирующий способ получить список всех атрибутов доступа и применить модификатор, но у меня возникнет соблазн явным образом перечислить их все с большим комментарием.

Вы считаете, есть ли у вас один класс или два здесь (Thingy, LockedThingy)? Два класса позволят вам инкапсулировать мета-умение, если вы так склонны.

Answer 2

Я хотел бы сделать два класса и общей роли:

package Thing 
use Moose::Role; 

has some_attrib => (isa => 'AnotherThing'); 

### Behaviour (the important stuff) goes here 

package ImmutableThing; 
use Moose; 

with 'Thing'; 

has +some_attrib => (is => 'ro'); 

sub finalize { shift } 

package MutableThing 
use Moose; 

with 'Thing'; 

has +some_attrib => (is => 'rw'); 

sub finalize { 
    my $self = shift; 
    Thing->new({some_attrib => $self->some_attrib}); 
} 

я не уверен, что с изменяемые и неизменяемые формы одного и того же класса всегда хорошая идея, хотя. Я стараюсь думать о времени сборки и времени работы как о двух разных фазах с разными интерфейсами.

Я был бы более склонен писать сборщик параметров (я использовал его как шаблон, но я не видел его в литературе), который имеет интерфейс, оптимизированный для сбора информации, необходимой для создания Thing , и сама вещь, которая является объектом, который использовал остальной частью программы.