Perl Moose 方法修饰符：在 'before' 和 'after' 之前调用 'around'

Question

我正在使用 Moose，我需要在我的项目中包装方法调用。重要的是我的包装代码是最外层的修饰符。到目前为止，我所做的是将我的方法修饰符放在 Moose 角色中，然后在我的课程结束时应用该角色，如下所示：

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

这使我能够合理地确定我的角色的修饰符是最后定义的，因此为我提供了“之前”和“之后”的正确行为。 （角色中的“之前”和“之后”被称为最前和最末。）

我原本以为这样就足够了，但现在我真的需要用“around”以类似的方式包装方法。 Moose 所基于的 Class::MOP 最先应用“around”修饰符，因此它们在“before”之后和“after”之前被调用。

更多细节，这里是我的修饰符的当前调用顺序：

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

关于如何在我想要的地方应用/调用我的“around”修饰符有什么想法吗？我知道我可以做一些符号表黑客（比如 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 { ... }
}

您遇到的问题是您试图让 CUSTOM ROLE 围绕方法包装其他的东西。这不是它的设计目的。除了像您建议的那样编写类似的符号表骇客（可能您可以争辩其中一个 Moose 人在 Class::MOP 中公开 API 以帮助实现目标），我能想到的唯一其他解决方案就是上面的那个。

如果您不希望custom_role_base_wrapper 会添加额外的调用堆栈帧，您应该查看Yuval 的Sub::Call::Tail 或使用goto 来操作调用堆栈。

Answer 2

我对 Moose 还很陌生，但你为什么要这样做：

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

而不仅仅是这个？

with 'App:Roles::CustomRole';

关于您的问题，这有点像 hack，但是您能否将您的 around 方法拆分为 before 和 after 方法并在您的类定义末尾应用角色（因此它适用于您的想要的顺序）？如果绝对必要，您可以使用私有属性来保存两种方法之间的状态。