Perl/Moose'da, tüm alt sınıflardaki bir yönteme nasıl bir değiştirici uygulayabilirim?

Question

Alt sınıflı olması amaçlanan bir Moose sınıfım var ve her alt sınıf bir "yürütme" yöntemini uygulamak zorunda. Ancak, sınıfımdaki yürütme yöntemine bir yöntem değiştirici uygulamak istiyorum, böylece tüm alt sınıflardaki yürütme yöntemine uygulanır. Ancak, yöntem geçersiz kılındığında yöntem değiştiricileri korunmaz. Sınıfımın tüm alt sınıflarının benim yöntem değiştiricilere kendi yürütme yöntemlerine uygulanmasını sağlamak için herhangi bir yolu var mı?

Örnek: bunun bir alt sınıfta, sonra

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

: Bir üst, ben bu var

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

yürütmek yöntem çağrıldığında, bu konuda hiçbir şey söylemez "önceki" değiştirici.

Answer 1

Bu, augment yöntem değiştiricisinin yapıldığı şeydir. Eğer üst sınıfta bu koyabilirsiniz: En alt sınıfları doğrudan execute geçersiz kılmak için izin vermek yerine, daha sonra

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

Ve, onlara augment var o:

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

Temelde bu size sadece around gibi fonksiyonellik sağlıyor değiştirici, ebeveyn/çocuk ilişkisi dışında değişti.