En Perl/Moose, ¿cómo puedo aplicar un modificador a un método en todas las subclases?

Question

Tengo una clase Moose que está destinada a ser subclasificada, y cada subclase tiene que implementar un método de "ejecución". Sin embargo, me gustaría poner aplicar un modificador de método al método de ejecución en mi clase, por lo que se aplica al método de ejecución en todas las subclases. Pero los modificadores de método no se conservan cuando se invalida un método. ¿Hay alguna forma de garantizar que todas las subclases de mi clase tengan mi modificador de método aplicado a sus métodos de ejecución?

Ejemplo: En una superclase, tengo esto:

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

Luego, en una subclase de que:

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

Cuando se llama al método de ejecución, no dice nada acerca de el modificador "antes".

Answer 1

Esto es para lo que está hecho el modificador de método augment. Usted puede poner esto en su superclase:

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

Y entonces, en lugar de permitir que sus subclases para anular execute directamente, que los tiene augment que:

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

Básicamente se le da una funcionalidad que es igual que el around modificador, excepto con la relación padre/hijo modificada.