如何访问我的Moose角色所应用的模块的元类？

Question

我正在使用Moose roles在类中的某些存取方法中应用一些包装器行为。我想将此角色应用于许多模块，每个模块都有一组不同的属性，我想要包装它们的访问器。有没有办法从角色中访问正在应用的模块的元类？就像这样：

package My::Foo;
use Moose;
with 'My::Role::X';

has [ qw(attr1 attr2) ] => (
    is => 'rw', # ...
);

has 'fields' => (
    is => 'bare', isa => 'ArrayRef[Str]',
    default => sub { [qw(attr1 attr2) ] },
);
1;

package My::Role::X;
use Moose::Role;

# this should be a Moose::Meta::Class object
my $target_meta = '????';

# get Class::MOP::Attribute object out of the metaclass
my $fields_attr = $target_meta->find_attribute_by_name('fields');

# extract the value of this attribute - should be a coderef
my $fields_to_modify = $fields_attr->default;

# evaluate the coderef to get the arrayref
$fields_to_modify = &$fields_to_modify if ref $fields_to_modify eq 'CODE';

around $_ => sub {
    # ...
} for @$fields_to_modify;
1;

Answer 1

看起来MooseX::Role::Parameterized可以解决问题：

  

普通角色可以要求其消费者拥有特定的方法名称列表。由于参数化角色可以直接访问其使用者，因此如果使用者不满足您的需求，您可以检查它并抛出错误。 (link)

角色专业化的细节与被增强的类不同;它甚至不需要传递任何参数，它需要知道的是传递给角色的参数（要包装的字段列表）。唯一的关键是必须在之后使用在类上定义相关属性。

因此，消费类和角色的定义如下：

package My::Foo;
use Moose;

my @fields = qw(attr1 attr2);

has \@fields => (
    is => 'rw', # ...
);

has 'fields' => (
    is => 'bare', isa => 'ArrayRef[Str]',
    default => sub { \@fields },
);

with 'My::Role::X' => {};

1;

package My::Role::X;
use MooseX::Role::Parameterized;

role {
    my $p = shift;

    my %args = @_;

    # this should be a Moose::Meta::Class object
    my $target_meta = $args{consumer};

    # get Class::MOP::Attribute object out of the metaclass
    my $fields_attr = $target_meta->find_attribute_by_name('fields');

    # extract the value of this attribute - should be a coderef
    my $fields_to_modify = $fields_attr->default;

    # evaluate the coderef to get the arrayref
    $fields_to_modify = &$fields_to_modify if ref $fields_to_modify eq 'CODE';

    around $_ => sub {
        # ...
    } for @$fields_to_modify;
};

1;

---

附录：我发现如果参数化角色使用另一个参数化角色，那么嵌套角色中的$target_meta实际上将是父角色的元类（isa {{ 1}}），而不是消费类的元类（isa MooseX::Role::Parameterized::Meta::Role::Parameterized）。为了派生适当的元类，您需要将其显式传递为参数。我已将此作为“最佳实践”模板添加到我的所有参数化角色中：

Moose::Meta::Class

---

附录2 ：我进一步发现，如果角色正在应用于对象实例，而不是类，那么package MyApp::Role::SomeRole; use MooseX::Role::Parameterized; # because we are used by an earlier role, meta is not actually the meta of the # consumer, but of the higher-level parameterized role. parameter metaclass => ( is => 'ro', isa => 'Moose::Meta::Class', required => 1, ); # ... other parameters here... role { my $params = shift; my %args = @_; # isa a Moose::Meta::Class my $meta = $params->metaclass; # class name of what is consuming us, om nom nom my $consumer = $meta->name; # ... code here... }; # end role no Moose::Role; 1; 角色实际上是进行消费的对象的类：

$target_meta

因此，在参数化角色的开头提取元类时，此代码是必需的：

package main;
use My::Foo;
use Moose::Util;

my $foo = My::Foo->new;
Moose::Util::apply_all_roles($foo, MyApp::Role::SomeRole, { parameter => 'value' });

package MyApp::Role::SomeRole;
use MooseX::Role::Parameterized;
# ... use same code as above (in addendum 1):

role {
    my $meta = $args{consumer};
    my $consumer = $meta->name;     # fail! My::Foo does not implement the 'name' method