В Perl/Moose, как я могу применить модификатор к методу во всех подклассах?

Question

У меня есть класс Moose, который предназначен для подкласса, и каждый подкласс должен реализовать метод «выполнить». Однако я хотел бы применить метод метода к методу execute в моем классе, чтобы он применил метод execute во всех подклассах. Но модификаторы метода не сохраняются при переопределении метода. Есть ли способ гарантировать, что все подклассы моего класса будут иметь мой модификатор метода, применяемый к их методам выполнения?

Пример: В суперкласса, у меня есть:

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

Затем в подклассе, что:

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

Когда метод выполнения называется, он ничего не говорит о модификатор «before».

Answer 1

Это то, что модификатор метода сделан для. Вы можете поместить это в суперкласса:

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 модификатор, за исключением изменений родительского/дочернего.