为什么带有方法修饰符的 Moose 角色应用程序在我的代码中不起作用？

Question

我有一个角色和几个混合该角色的类。 Role 类加载所有实现类，以便任何导入 Blah 的东西都可以使用它们，而无需键入大量“use”行。

package Blah;
use Moose::Role;

use Blah::A;
use Blah::B;
(etc...)

requires '...';
requires 'foo';
around 'foo' => sub { ... }

典型的 Blah 子类：

package Blah::A;
use Moose;
with 'Blah';

sub foo { ... }

__PACKAGE__->meta->make_immutable;

由于每个子类“foo”方法都以相同的代码位开头，因此该角色还通过方法修饰符实现这些代码。

问题是：Moose 不会将方法修饰符应用于任何 Blah::* 类。即使我删除了类的 make_immutable 调用，也会发生这种情况。我认为角色应用程序完全在运行时完成，因此即使 Blah::* 类在 Blah 之前加载，修饰符仍然应该应用吗？

我正在寻找解决办法，或者替代的做事方式。目前，除了方法修饰符之外，Blah 本质上是一个抽象基类，这就是我一开始使用角色的原因 - 但也许类层次结构会更好？提前致谢。

Answer 1

您的调用顺序有点奇怪 - 为什么您在角色中使用Blah::A，然后将其应用于Blah::A？

我建议拉出这些 use 行并将它们移动到实际需要的位置（在调用者中）。首先让代码正常工作，然后，如果您有很多 use 行，到处都乱七八糟，您可以将它们移到 Includes 文件中。

但不，回答你的假设——角色应用不是在运行时完成的，而是在任何时候遇到with行时完成的。如果您在编译时使用模块，那么该文件将立即编译，并执行with行（然后强制编译角色，然后它是跑步）。当然，您也可以在运行时应用角色（例如，请参阅 Moose::Util< 中的 apply_all_roles /a>)，但这不是这里发生的情况。

Answer 2

我认为您只是误解了文件包含和角色组合之间的区别。

在幕后，use 语句只需调用 require，然后调用推断的 Package 的 import() 语句，并将所有这些包装在 BEGIN 中{} 块。

它不会使用 Class::MOP (CMOP) 将函数安装为元类方法。我不确定声明的方法和导入的方法之间有什么区别，或者 CMOP 如何区分差异，但这只是因为调用了 add_method 才有效。我想从 irc.perl.org/#moose 获取更多信息，但我被禁止了。希望这个例子能告诉您您需要什么，或者为您提供更多信息来提出更好的问题。

package Class;
use Moose;
use Carp qw(carp);

### You have to add the method onto the class.
Class->meta->add_method( 'carp' => \&carp );

around 'carp' => sub { warn "this won't trigger" };

package main;

my $c = Class->new;
$c->carp('foo');

如果可能的话，我会将您使用的那些包重写为Moose友好的角色，然后让当前角色使用with语句调用新角色。角色将处理其他角色提供的方法周围的方法修饰符。