注意 Moose 属性的变化

Question

当属性的内容通过引用而不是通过mutator设置其值时，Moose有什么方法可以触发回调？

让我们假设以下代码：

has _changed  => ( is => 'rw' , isa=>'Bool' ) ;
has attribute => ( 
    is=>'rw', isa=>'Maybe[HashRef]', 
    default => sub { { a => 1 , b => 2 } },     
    trigger => sub { shift->_changed(1) } 
) ;

触发器按预期工作，通过 mutator 设置属性值：

$self->attribute({ a => 2 , b => 2 }) ; # OK

但是通过它的键直接设置一个值然后触发器不会触发（当然）：

$self->attribute->{a} = 3 ; # KO

我放弃了创建（和比较）序列化属性内容摘要的想法，因为它可能是具有多个嵌套级别的非常巨大的 hashref，并且在每个属性访问时创建摘要会产生性能问题。

绑定的 hashref（作为属性值）可能是一种可能的解决方案？ 任何想法或建议都非常感谢。

注意：包含的 hashref 的结构是未知的（我正在编写一个 ORM 类，因此该结构可能会因存储在 NOSQL db 端的文档而异）。

Answer 1

一旦您直接更改哈希引用而不是使用访问器方法，Moose 就不再参与其中。让您的属性返回对绑定哈希的引用将是更改可观察哈希的唯一策略，但这并不是一个特别有吸引力的解决方案。绑定变量很少见，并且可能会在某些代码中触发错误。它们实施起来比较困难。它们意味着每次哈希访问都会产生性能开销。

强烈考虑是否可以更改设计以避免暴露内部哈希。例如。有一个只返回散列的（浅）副本的getter，以及散列中各个元素的setter。您可以使用handles 和traits 机制自动生成其中一些访问器，例如见 Moose::Meta::Attribute::Native::Trait::Hash。

Answer 2

以下方法基于Tie::Trace Perl 模块，演示了如何轻松监视 Moose 属性更改，即使通过直接访问包含的 hashref 而不是使用适当的 setter 方法进行修改。

package Test::Document ;

use Mouse ;
use Tie::Trace qw<watch> ;

has _changed => ( is => 'rw', isa => 'Bool' ) ;
...
has value => (
    is      => 'rw', isa => 'HashRef',
    default => sub { { } },
    trigger => sub { shift->_changed( 1 )  }
) ;

sub BUILD {
    my ( $self ) = @_ ;
    $self->_changed( 0 ) ; # reset flag
    watch %{ $self->{ value } } , debug=> sub {
        $self->_changed(1)
    };
    return $self ;
}

package main ;

my $doc = Test::Document->new( value => { a => 1 , b => { c => 3 } } ) ;

my $x = $doc->value->{ b }->{ e } ; # not changed

$doc->value->{ b }->{ e } = 4 ; # changed

$doc->_changed(0);
delete $doc->value->{ b }->{ e } ; # changed

$doc->_changed(0);
$doc->value({ a => 1 }) ; # changed

优点：它有效:)

缺点：递归绑定方法，在具有大量键和嵌套级别的哈希上，可能会产生性能问题。我必须做一些基准测试。

注意：我尝试使用魔法变量，但使用 sub()->{a}->{b} 之类的语法的标量上下文传播会强制触发 store 事件，即使没有（显式）分配也是如此。欢迎提出建议。