In Perl/Moose, come posso applicare un modificatore a un metodo in tutte le sottoclassi?

Question

Ho una classe Moose che deve essere sottoclasse e ogni sottoclasse deve implementare un metodo "execute". Tuttavia, vorrei mettere un metodo di modifica del metodo di esecuzione nella mia classe, in modo che si applica al metodo di esecuzione in tutte le sottoclassi. Ma i modificatori del metodo non vengono conservati quando un metodo viene sovrascritto. C'è un modo per garantire che tutte le sottoclassi della mia classe abbiano il mio modificatore di metodo applicato ai loro metodi di esecuzione?

Esempio: in una superclasse, ho questo:

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

Poi, in una sottoclasse di che:

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

Quando il metodo execute viene chiamato, non dire nulla su il modificatore "prima".

Answer 1

Questo è il motivo del modificatore del metodo augment. Si può mettere questo nel vostro superclasse:

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

E poi invece di permettere vostre sottoclassi per ignorare execute direttamente, li avete augment esso:

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

Fondamentalmente ti dà la funzionalità che è proprio come il around modificatore, tranne con la relazione genitore/figlio modificata.