如何防止在调用 new 时设置 Perl Moose 只读属性？

Question

我想简单地在 Moose 中声明一个只读属性，该属性无法在调用 new 时初始化。因此，在声明以下内容之后：

package SOD::KuuAnalyze::ProdId;

use Moose;

has 'users' => (isa => 'ArrayRef[Str]', is => "ro");

1;

我不希望以下内容起作用：

my $prodid = SOD::KuuAnalyze::ProdId->new(users => ["one", "two"]);

Answer 1

使用 init_arg 属性配置（请参阅 Moose::手册::属性):

package SOD::KuuAnalyze::ProdId;
use Moose;

has 'users' => (
    isa => 'ArrayRef[Str]', is => "ro",
    init_arg => undef,    # do not allow in constructor
);
1;

Answer 2

如何

package SOD::KuuAnalyze::ProdId;

use Moose;

has 'users' => ( 
    isa => 'ArrayRef[Str]', 
    is => 'ro', 
    init_arg => undef, 
    default => sub { [ 'one', 'two' ] }, 
);

将 init_arg 设置为 undef 似乎有必要禁止从构造函数设置属性。