使對象實例不可變

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}); 
} 

我不知道具有相同類的可變和不可變的形式必然是，雖然是個好主意。我傾向於將構建時間和運行時間考慮爲具有不同接口的兩個不同階段。

我會更傾向於編寫一個參數收集器（我已將它大寫爲它的樣式，但我沒有在文獻中看到過），它具有優化的界面以收集創建事物所需的信息，以及本身的東西，這是對象使用其餘的程序。