X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FMetaDescription%2FMeta%2FTrait.pm;fp=lib%2FMooseX%2FMetaDescription%2FMeta%2FTrait.pm;h=babd49a472ca2d749a9386fc29b793eabba7b6fc;hb=d9f5e5aeb1ca767b140e316900b53cfc4e87a09e;hp=11ccb0156f5f9a6e9d85ff11c712bb480fe83575;hpb=216d0ecfc1fd2e95459f6d49958f82b8616f4892;p=gitmo%2FMooseX-MetaDescription.git diff --git a/lib/MooseX/MetaDescription/Meta/Trait.pm b/lib/MooseX/MetaDescription/Meta/Trait.pm index 11ccb01..babd49a 100644 --- a/lib/MooseX/MetaDescription/Meta/Trait.pm +++ b/lib/MooseX/MetaDescription/Meta/Trait.pm @@ -1,7 +1,7 @@ package MooseX::MetaDescription::Meta::Trait; use Moose::Role; -our $VERSION = '0.01'; +our $VERSION = '0.02'; our $AUTHORITY = 'cpan:STEVAN'; has 'description' => ( @@ -12,12 +12,12 @@ has 'description' => ( ); has 'metadescription_classname' => ( - is => 'ro', + is => 'rw', isa => 'Str', lazy => 1, default => sub { 'MooseX::MetaDescription::Description' - } + } ); has 'metadescription' => ( @@ -30,6 +30,8 @@ has 'metadescription' => ( my $metadesc_class = $self->metadescription_classname; my $desc = $self->description; + Class::MOP::load_class($metadesc_class); + if (my $traits = delete $desc->{traits}) { my $meta = Moose::Meta::Class->create_anon_class( superclasses => [ $metadesc_class ],