perl - 覆盖类的 "is"属性(Moose)

Question

我正在尝试子类 ro属性使其 rw像这样:

has '+content' => (is => 'rw');

这似乎不起作用。这不可能吗？

Answer 1

您应该将对象定义为只读，然后提供私有(private)写入器

#!/usr/bin/perl
use Modern::Perl;

{
    package Foo;
    use Moose;

    has bar => (
      is     => 'ro',
      writer => '_set_bar',
  );

}

my $foo = Foo->new;

那么如果你尝试 $foo->bar('something');你会得到你在评论中提到的错误 Cannot assign a value to a read-only accessor这是你需要的魔法 $foo->_set_bar('something');由于继承，它将彻底运行 Moose 框架。