Role—扩充角色应用程序的简单方法?

在简短的评论中我提到你 this question ,其中讨论了如何访问要应用角色的类的元类(例如,以便可以有条件地构建到该类上)。然而,这是MooseX::Role::parametized的一个非常糟糕的用法,如果角色被应用到另一个角色,而不是一个类,那么它也不会工作。

作为替代方案,您可以编写一个sugar函数来接收元信息,并以这种方式构建到类上:

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

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

见 Moose::Cookbook::Extending::Recipe4

你可以用一个 parameterized role . 有一个关于如何访问 tutorial

我发现它很有效,很紧凑,并且似乎与文档中的意图一致,就是使用一个特性来修改我的特定角色使用的元角色:

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';