Moose只读属性特征以及如何设置它们？

Question

如何设置 Moose 只读属性特征？

package AttrTrait;
use Moose::Role;
has 'ext' => ( isa => 'Str', is => 'ro' );

package Class;
has 'foo' => ( isa => 'Str', is => 'ro', traits => [qw/AttrTrait/] );

package main;
my $c = Class->new( foo => 'ok' );
$c->meta->get_attribute('foo')->ext('die') # ro attr trait

如果无法在构造函数或运行时设置只读属性特征，那么它的用途是什么？ Moose::Meta:: 中缺少什么吗？属性？有没有办法使用meta来设置它？

$c->meta->get_attr('ext')->set_value('foo') # doesn't work either (attribute trait provided not class provided method)

Answer 1

您可以在构造函数中设置它：

package Class;
has 'foo' => ( isa => 'Str', is => 'ro', ext => 'whatever', traits => ['AttrTrait'] );

您只需将其传递给正确的构造函数（属性的构造函数）。

Answer 2

我使用 default 来处理 ro 属性：

package Foo;
use Moose;
has 'myattr' => (is => 'ro', default => 'my value goes here');

并且由于您不会在其他任何地方设置 myattr 的值，因此使用默认值。