我可以将 Moose 属性设为“一次写入”吗？

Question

我想要一个非必需的 Moose 属性，只能设置一次。

如果我使用 is =>; 'ro' 我必须在创建对象时设置该属性，但我希望能够在之后添加它（只要它尚未设置）。

Answer 1

MooseX::SetOnce

Answer 2

使用方法修饰符：

has 'attr' => (
    is => 'rw',
    predicate => 'is_set',
    ...
};   

before 'attr' => sub {
     my $self = shift;
     die 'attr already set' if $self->is_set;
};