Perl/Mooseでは、どのようにしてすべてのサブクラスのメソッドに修飾子を適用できますか？

Question

私は、サブクラス化されることを意図したMooseクラスを持っており、すべてのサブクラスは "execute"メソッドを実装する必要があります。しかし、クラスのexecuteメソッドにメソッド修飾子を適用して、すべてのサブクラスのexecuteメソッドに適用するようにしたいと思います。しかし、メソッド修飾子は、メソッドがオーバーライドされても保持されません。私のクラスのすべてのサブクラスが自分のメソッド修飾子をそのexecuteメソッドに適用するようにする方法はありますか？

例：そのサブクラスで、その後

before execute => sub { 
    print "Before modifier is executing.\n" 
} 

：スーパークラスでは、私はこれを持って

sub execute { 
    print "Execute method is running.\n" 
} 

executeメソッドが呼び出されると、それはについては何も言いません。 "before"修飾子。

Answer 1

これは、augmentメソッド修飾子のためのものです。あなた、あなたのスーパークラスでこれを置くことができます。

sub execute { 
    print "This runs before the subclass code"; 
    inner(); 
    print "This runs after the subclass code"; 
} 

そして、代わりにあなたのサブクラスが直接executeを上書きすることができ、あなたがaugmentそれをそれらを持っている：

augment 'execute' => sub { 
    print "This is the subclass method"; 
}; 

基本的に、それはあなただけのaroundようなものだ機能を提供します親/子関係が変更されている場合を除き、修飾子。