Perl Moose 方法修饰符：调用“around”在“之前”之前以及“之后”

Question

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

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

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

我最初认为这就足够了，但现在我确实需要以与“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';

关于您的问题，这有点像黑客，但是您可以将您的 around 方法拆分为 before 和 after 方法，并在你的类定义结束了（所以它按照你想要的顺序应用）？如果绝对必要，您可以使用私有属性来保存两个方法之间的状态。