perl - 如何防止在调用 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::Manual::Attributes中的“构造函数参数” ）：

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_argtoundef似乎是不允许从构造函数设置属性的必要条件。