为Moo只读属性设置accessor或writer会使其变为可写吗？

嘿，这个问题问得很精准，刚好戳中Moo属性定义里的一个核心规则——is => 'ro'的优先级远高于accessor或writer参数，简单总结就是：就算你给只读属性指定了accessor或者writer，这个属性依然会保持只读状态，那些你期望的写入方法根本不会被创建出来。

背后的逻辑是什么？ #

Moo里的is参数是属性访问控制的快捷声明：

• is => 'ro'明确告诉Moo：只生成读取方法（reader），绝对不生成任何写入相关的方法。
• 当你同时加上accessor（期望生成读写一体的方法）或者writer（期望生成单独的写方法）时，Moo会直接忽略这些参数——因为ro已经锁定了属性的只读特性，不会因为你额外指定了方法名就打破这个限制。

用代码实际验证一下 #

我们写个简单的测试类来验证这个结论：

#!/usr/bin/perl
package MooPerson;
use Moo;
use namespace::clean;

# 给ro属性指定writer
has surname => (
    is      => 'ro',
    writer  => 'set_surname',
    default => 'Smith'
);

# 给ro属性指定accessor
has age => (
    is       => 'ro',
    accessor => 'age_accessor',
    default  => 30
);

1;

# 测试逻辑
package main;
use strict;
use warnings;

my $person = MooPerson->new;

# 尝试调用set_surname（预期会报错）
eval { $person->set_surname('Johnson') };
print "调用set_surname的结果: $@" if $@;

# 尝试用accessor写值（预期会报错）
eval { $person->age_accessor(35) };
print "\n调用age_accessor写值的结果: $@" if $@;

# 读取属性是完全正常的
print "\n当前surname: " . $person->surname;
print "\n当前age: " . $person->age . "\n";

运行这段代码后，你会看到类似这样的错误输出：

调用set_surname的结果: Can't locate object method "set_surname" via package "MooPerson" at...

调用age_accessor写值的结果: Not a CODE reference at...

而读取属性的部分会正常输出Smith和30，这就直接证明：ro的限制完全生效了，writer和accessor指定的写入方法根本没被创建。

如果想要自定义读写方法该怎么做？ #

如果你确实需要自定义方法名同时控制读写权限，正确的做法是：

• 如果要只读：只用is => 'ro'，可以搭配reader指定自定义读取方法名（比如reader => 'get_surname'），但不要加writer或accessor。
• 如果要可写：用is => 'rw'，然后搭配reader和writer分别指定自定义的读写方法名，或者用accessor指定统一的读写方法名。

比如这样是合法的可写配置：

has firstname => (
    is      => 'rw',
    reader  => 'get_firstname',
    writer  => 'set_firstname',
);

内容的提问来源于stack exchange，提问作者felima