Moose::Role - 增强角色应用的简单方法？

Question

我有一个 Moose::Role ，当该角色应用于该类时，我想在该类上调用一些额外的子函数。

有没有一种简单的方法可以修改应用角色时发生的情况，而不必深入研究 Moose::Meta::Role 类型编码？理想情况下，我只想在“apply”=>之后... 添加额外的东西。

编辑：

我专门将其与 DBIx::Class::Core 结果定义一起使用，以创建类似也修改构造函数的组件之类的内容。如果我可以得到 BUILDARGS 和 BUILD 子结果，我会把它写成一个组件，但我似乎做不到。因此，我没有执行 load_component，而是执行 with 'role'，但组件的一些效果是将 belongs_to 关系添加到班级。因此，我认为最好的方法是将角色应用到课堂上。

Answer 1

在简短的评论中，我向您推荐了 这个问题，它讨论如何访问角色所应用的类的元类（例如，以便您可以有条件地构建该类）。然而，使用 MooseX::Role::Parameterized 为您提供该信息确实很糟糕，而且如果将角色应用于另一个角色而不是类，它也将不起作用。

作为替代方案，您可以编写一个接收元信息的糖函数，并以这种方式构建到类上：

sub foo
{
     my ($meta, %options) = @_;

     # based on what is present in %options, add additional attributes...
     $meta->add_attribute(...);
}

请参阅 Moose::Cookbook::Extending::Recipe4 了解编写糖函数的示例。

Answer 2

您可以使用参数化角色。 教程。话虽这么说，我建议您加入 Moose 和 DBIx-Class IRC 频道或邮件列表，以寻找这方面的最佳实践。

Answer 3

我发现有效、紧凑并且似乎符合文档中的意图的是使用一个特征来修改我的特定角色使用的元角色：

package DBIx::Class::Meta::Role::MyRole;
use Moose;
BEGIN { extends 'Moose::Meta::Role'; }
after 'apply' => sub {
## ..my mods to add extra relationships to DBIx::Class::Core result
};
no Moose;

package DBIx::Class::MyRole;
use Moose::Role -metaclass => 'DBIx::Class::Meta::Role::MyRole';