perl - Mooseのコンストラクタでのみ設定できる属性を作成することは可能ですか?

Question

Mooseのコンストラクタでのみ設定できる属性を作成することは可能ですか? 私はこのようなことをしたいと思います:

my $foo = new Foo(file => 'foo.txt');
my $bar = new Foo(string => $str);
$foo->file('baz.txt'); # dies

コンストラクターで設定できない属性を作成できることはわかっていますが、補完的なケースが欠落しているようです。

Answer 1

それは単なる読み取り専用属性ではありませんか? 私が書いたら

package Foo;
use Moose;

has 'file' => (is => 'ro', isa => 'Str');
has 'string' => (is => 'rw', isa => 'Str');

1;

その後、あなたのコードは

Cannot assign a value to a read-only accessor