Perl Moose Metodu Değiştiriciler: 'Önce' ve 'sonra' önce 'etrafında' ara '

Question

Moose kullanıyorum ve projemde yöntem çağrılarını kaydırmam gerekiyor. Sarma kodumun en dış değiştirici olması önemlidir.

use Moose::Util; 
Moose::Util::apply_all_roles(__PACKAGE__->meta, ('App:Roles::CustomRole')); 
__PACKAGE__->meta->make_immutable; 

Bu benim benim Rolün değiştiricileri olduğunu makul emin olmasını sağlar: Ne sonra Moose Rolü benim yöntemi düzenleyicileri koymak ve şimdiye kadar yaptığım böyle benim sınıfın sonunda bu rolü uygulamalı Son olarak tanımlanmış, bu yüzden bana "önce" ve "sonra" için doğru davranışı veriyor. (Rolde "önce" ve "sonra", ilk ve sonuncu olarak adlandırılır.)

Aslında bunun yeterli olacağını düşündüm, ama şimdi "etrafındaki" yöntemlerle benzer yöntemlerle sarmak zorundayım. Moose'un üzerine kurulu olduğu Class :: MOP, öncelikle "etrafında" değiştiricileri uygular, bu nedenle "önce" ve "sonra" dan önce çağrılırlar. Benim "etrafında" değiştirici almak için nasıl

CUSTOM ROLE before 
    CUSTOM ROLE around 
     before 2 
      before 1 
       around 
        method 
       around 
      after 1 
     after 2 
    CUSTOM ROLE around 
CUSTOM ROLE AFTER 

Herhangi bir fikir:

CUSTOM ROLE before 
    before 2 
     before 1 
      CUSTOM ROLE around 
       around 
        method 
       around 
      CUSTOM ROLE around 
     after 1 
    after 2 
CUSTOM ROLE AFTER 

Gerçekten böyle bir şey gerekir: Daha fazla ayrıntı için

, işte değiştiricilerin Şu anki arama sırasıdır İstediğim yerde/uygulanacak mı? Bazı sembollerin hacklemesini yapabildiğimi biliyorum (Class :: MOP zaten yapıyor) ama ben gerçekten değil.

Answer 1

En basit çözüm, CUSTOM ROLE ana yöntemi çağıran ve sonra da onu sarmalayan bir yöntem tanımlamaktır.

role MyRole { 
    required 'wrapped_method'; 
    method custom_role_base_wrapper { $self->wrapped_method(@_) } 

    around custom_role_base_wrapper { ... } 
    before custom_role_base_wrapper { ... } 
} 

yaşadığınız sorun bir yöntem daha sarma şey diğer etrafında ÖZEL ROLÜ sahip çalışıyoruz olmasıdır. Hangi yapacağı tasarlanmamış. Benzer sembol tablosu korsanlığını yazmanız dışında (muhtemelen Moose insanlarından bir tanesinin Class: MOP'a ulaşmak için bir API'ye maruz kalmasına neden olabilirsiniz), düşünebildiğim tek diğer çözüm yukarıdakidir.

Eğer custom_role_base_wrapper katacak ekstra çağrı yığını çerçeve istemiyorsanız, sen Yuval adlı Sub::Call::Tail bakmak veya çağrı yığını işlemek için goto kullanarak olmalıdır.

neden `Moose :: Util kullanırken aşağıda eter sorusuna katılıyorum

Answer 2

Moose oldukça yeniyim ama bunu neden:

use Moose::Util; 
Moose::Util::apply_all_roles(__PACKAGE__->meta, ('App:Roles::CustomRole')); 

ziyade sadece bu? Sorunuza gelince

with 'App:Roles::CustomRole'; 

, bir hack biraz, ama before ve after yöntemlerle içine around yöntemi bölmek ve sınıf tanımının sonunda rolünü uygulamak (bu yüzden istediğiniz sırayla uygulanır olabilir)? Kesinlikle gerekliyse, iki yöntem arasında durum kaydetmek için özel öznitelikleri kullanabilirsiniz.