Perl Moose方法修飾符：在'之前'和'之後'調用'around'

Question

我正在使用Moose，我需要在我的項目中包裝方法調用。重要的是我的包裝代碼是最外面的修飾符。

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

這使我有理由相信我的我的角色的修飾符：我到目前爲止所做的就是把我的方法修飾符在穆斯的角色，然後在我的課像這樣結束時應用該角色最後定義，因此給我「之前」和「之後」的正確行爲。 （角色中的「之前」和「之後」被稱爲非常先和非常後）。

我原本以爲這樣就足夠了，但我現在真的需要用類似的方法來包裝方法。 Class :: MOP是Moose的基礎，它首先應用「around」修飾符，因此它們在「之前」之前和之後「之後」被調用。

更多的細節，這裏是我的修飾符的當前調用順序：

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

我真正需要的是這樣的：

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

如何讓我的「左右」修改任何想法在我想要的地方應用/調用？我知道我可以做一些符號表黑客行爲（就像Class :: MOP已經在做的那樣），但是我真的不想。

Answer 1

最簡單的解決方案是讓CUSTOM ROLE定義一個方法，該方法調用main方法然後將其包裝。

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

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

您遇到的問題是，你想擁有的繞到東西其他不是方法的自定義角色。這不是它設計的目的。除了像你所建議的那樣編寫類似的符號表hackery（可能你可能會爭論Moose中的一個人將Class :: MOP中的API暴露出來以幫助實現此目標），但我能想到的唯一的其他解決方案就是上面的那個。

如果你不想要custom_role_base_wrapper將添加額外的調用堆棧幀，你應該看看Yuval的Sub::Call::Tail或使用goto來操縱調用堆棧。

Answer 2

我是相當新的駝鹿，但是你爲什麼這樣做：

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

而不是簡單呢？

with 'App:Roles::CustomRole'; 

關於你的問題，這是一個黑客攻擊的一位，但你可以分割你的around方法爲before和after方法和類定義的末尾應用中的作用（故在您需要的順序應用）？如果絕對必要，您可以使用私有屬性來保存兩種方法之間的狀態。