我不太了解Moo，但是在Moose中，你可以在构造函数之后实现你自己的代码。如果你能在Moo中这样做，它会给予你想要的效果。

sub BUILD {
    my $self = shift;

    # Sets "useTriggers" AFTER the object is already constructed.
    $self->useTriggers(1);
};

这将导致useTriggers在构造之后立即被设置，因此触发器将在构造对象之后而不是在构造对象之前处于活动状态。
因此，您应该可以写入：

my $foo->new(attr => 1);
$foo->attr(2);

并获得相同的输出。

package Foo;
use Moo;

has attr => ( accessor => '_attr' );

sub attr { 
    my $self = shift;
    my $rv = $self->_attr(@_);
    print "trigger! value: ", $rv if @_;
    return $rv;
}

package main;
use Foo;

my $foo = Foo->new( attr => 1 );
$foo->attr( 2 );

因为Perl 5.36发布时签名不再是实验性的，所以Moose生态系统中的事情变得复杂了。
对于Moo，没有任何更改，useTriggers技巧或构建自定义访问器仍然是有效答案。
对于Moose和Mouse，当通过属性访问器更改值时，也会传递旧值。因此，从构造函数调用的触发器和在现有属性上调用的触发器可以通过arity进行区分。常见模式为：

sub _change_attribute {
    my ( $self, $new ) = @_;

    return unless int @_ == 3;    # no old value, we're in constructor

    do something...

使用签名有一个新的问题-如果使用了签名，就无法检查@_（这被认为是实验性的，会抛出一个警告，通常不鼓励这样做）。因此，当将签名适配到变量触发器子元数时，可能会陷入这个陷阱：

sub _change_attribute ( $self, $new, $old = undef ) {

    return unless defined $old;

    do something...
}

仅当属性本身不能为Undef时，这才起作用否则，触发器将无法按预期在

• $object->attribute( undef );
• 哇哦！

改变。
这个笨拙的解决方案是故意将旧的param错误键入为slurpy array：

sub _change_attribute ( $self, $new, @old ) {

    return unless @old;   # no old value, we're in constructor

    do something...
}

当通过属性访问器更改值时（属性是否可以为Undef无关紧要），它将正确激发，并且当从构造函数初始化时将激发并跳过逻辑。