如何在运行时将现有的 Moose 角色组合成一个类？

Question

假设我定义了一个抽象 My::Object 和具体角色实现 My::Object::TypeA 和 My::Object::TypeB。出于可维护性的原因，我不希望有一个查看对象类型并应用角色的硬编码表。作为 DWIMmy 的示例，我正在 My::Object 中寻找类似的内容：

has => 'id' (isa => 'Str', required => 1);

sub BUILD {
  my $self = shift;

  my $type = $self->lookup_type(); ## Returns 'TypeB'
  {"My::Object::$type"}->meta->apply($self);
}

让我通过执行以下操作来获取具有 My::Object::TypeB 角色的 My::Object：

my $obj = My::Object(id = 'foo')

这会执行我的操作吗想要还是我完全走错了路？

编辑：我过于简化了；我不想在实例化对象时必须知道类型，我希望对象确定其类型并适当地应用正确的角色方法。我编辑了我的问题以使这一点更清楚。

Answer 1

你尝试过吗？

$perl -Moose -E'
     sub BUILD { my ($self, $p) = @_; my $role = qq[Class::$p{role}]; $role->meta->apply($self) };
     package Class::A; use Moose::Role; has a => (is => q[ro], default => 1);
     package main; say Class->new(role => q[A])->dump'

产量：

$VAR1 = bless( {
             'a' => 1
           }, 'Class::MOP::Class::__ANON__::SERIAL::1' );

这似乎就是您想要的。清理了 oose.pm 调用中的代码是：

package Class; 
use Moose;
sub BUILD { 
    my ($self, $p) = @_;
    my $role = qq[Class::$p{role}];
    $role->meta->apply($self);
}

package Class::A;
use Moose::Role;

has a => ( is => 'ro', default => 1 );

package main;
Class->new(role => 'A');

Answer 2

使用 MooseX::Traits，它将把你的角色变成一个可以在运行时应用的特质，然后你只需调用：

   # Where Class is a class that has `use MooseX::Traits`;
   # And TypeB is a simple role
   Class->new_with_traits( traits => [qw/TypeB/] )

   # or even the new, and now preferred method.
   Class->with_traits('TypeB')->new();

Answer 3

问题更新后，我将再次破解：with() 只是一个函数调用。

package Class;
use Moose;

BEGIN {
  with ( map "MyObject::$_", qw/TypeA TypeB/ );
}

另外，您可以使用 perl 常量 __PACKAGE__ 来引用当前包。