W języku Perl/Moose, w jaki sposób mogę zastosować modyfikator do metody we wszystkich podklasach?

Question

Mam klasy Moose, która ma być podklasy, a każda podklasa musi wdrożyć metodę "wykonaj". Chciałbym jednak zastosować modyfikator metody do metody execute w mojej klasie, tak aby dotyczyła ona metody execute we wszystkich podklasach. Modyfikatory metod nie są jednak zachowywane, gdy metoda jest nadpisywana. Czy istnieje sposób, aby upewnić się, że wszystkie podklasy mojej klasy będą miały mój modyfikator metody zastosowane do ich metod wykonywania?

Przykład: W nadrzędnej, mam to:

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

Następnie w podklasie, że:

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

Gdy metoda nazywa się wykonać, to nie powiedzieć nic na temat modyfikator "przed".

Answer 1

Oto, do czego służy modyfikator metody augment. Można umieścić to w nadrzędnej:

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

A potem zamiast pozwalając podklasy zastąpić execute bezpośrednio, trzeba im augment go:

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

Zasadniczo daje funkcjonalność, która jest podobnie jak around modyfikator, z wyjątkiem zmiany relacji nadrzędna/podrzędna.