En Perl/Moose, comment puis-je appliquer un modificateur à une méthode dans toutes les sous-classes?

Question

J'ai une classe Moose destinée à être sous-classée, et chaque sous-classe doit implémenter une méthode "execute". Cependant, je voudrais appliquer un modificateur de méthode à la méthode execute de ma classe, afin qu'il s'applique à la méthode execute dans toutes les sous-classes. Mais les modificateurs de méthode ne sont pas conservés lorsqu'une méthode est surchargée. Est-il possible de s'assurer que mon modificateur de méthode est appliqué à toutes les sous-classes de ma classe?

Exemple: Dans une superclasse, j'ai ceci:

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

Ensuite, dans une sous-classe de cette:

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

Lorsque la méthode d'exécution est appelée, elle ne dit rien au sujet le modificateur "avant".

Answer 1

C'est ce à quoi sert le modificateur de la méthode augment. Vous pouvez mettre dans votre superclasse:

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

Et puis au lieu de laisser vos sous-classes de passer outre execute directement, vous les avez augment il:

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

Fondamentalement, il vous offre des fonctionnalités qui est tout comme le around modificateur, sauf avec la relation parent/enfant modifiée.