Varolan Moose rolünü çalışma zamanında bir sınıfa nasıl yazarım?

Question

Soyut bir My :: Object ve somut rol uygulamalarını tanımladığımı söyle. :: :: :: :: :: :: :: :: ::: Sürdürülebilirlik nedenlerinden ötürü, nesne türüne bakan ve rolleri uygulayan sabit kodlanmış bir tablonun olmasını istemiyorum.

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

sub BUILD { 
    my $self = shift; 

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

beni aşağıdakileri yaparak uygulanan My :: Nesne :: TypeB rolü ile My :: Nesne olsun Letting: Bir DWIMmy örnek olarak, My :: Nesne bu yöndeki şey arıyorum:

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

İstediğim şeyi yapacak mıyım yoksa tamamen yanlış yolda mıyım?

Düzenleme: Bunu çok basitleştirdim; Nesneyi hazırladığımda türü bilmek istemiyorum, nesnenin türünü belirlemesi ve doğru rolün yöntemlerini uygun şekilde uygulamasını istiyorum. Bunu daha net hale getirmek için sorumu düzenledim.

Answer 1

Denediniz mi?

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

Verim:

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

İstediğin gibi görünüyor. Oose.pm içinde kodu temizledik.Arama:

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

Kullanım MooseX::Traits, o zaman sadece çağrı zamanında uygulanabilecek özelliği içine rol dönecek:

# 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

soru güncellemesinden sonra ben o başka bir çatlak vereceğiz: with() olduğunu sadece bir işlev çağrısı.

package Class; 
use Moose; 

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

Ayrıca, __PACKAGE__ sabit perl ile cari paketini referans alabilir.