サブクラスのperl mooseトリガーがメソッド修飾子を中断する

Question

サブクラスがトリガーを追加すると、基本クラスのメソッド修飾子が実行されないことがわかりました。これはムースバグ、または少なくとも直感的ではないようです。ここに私の例です：

package Foo { 
    use Moose; 

    has 'foo' => (
     is => 'rw', 
     isa => 'Str', 
    ); 

    before 'foo' => sub { 
     warn "before foo"; 
    }; 
}; 

package FooChild { 

    use Moose; 
    extends 'Foo'; 

    has '+foo' => (trigger => \&my_trigger,); 

    sub my_trigger { 
     warn 'this is my_trigger'; 
    } 
}; 

my $fc = FooChild->new(); 
$fc->foo(10); 

あなたはこの例を実行する場合は、唯一の「これはmy_triggerです」実行を警告し、修飾子は無視され、「前に」。私はMoose 2.0402でPerl 5.14.2を使用しています。

この動作は正しいですか？トリガがベースクラスに直接定義されている場合、トリガは前のトリガの後に起動するため、特にそうは思われません。

Answer 1

継承されたコードとクラスのコードを区別できないようにするという原則については、私はこれをバグと呼びます。

属性に追加すると、メソッド修飾子が削除されるのが一般的な問題です。このコードは、トリガーを伴わないバグを示しています。

package Foo { 
    use Moose; 

    has 'foo' => (
     is => 'rw', 
     isa => 'Str', 
     default => 5, 
    ); 

    before 'foo' => sub { 
     warn "before foo"; 
    }; 
}; 

package FooChild { 

    use Moose; 
    extends 'Foo'; 

    has '+foo' => (default => 99); 
}; 

my $fc = FooChild->new(); 
print $fc->foo; 

Please report this to the Moose folks。