package MooseX::MetaDescription::Meta::Trait;
use Moose::Role;
-our $VERSION = '0.01';
+our $VERSION = '0.02';
our $AUTHORITY = 'cpan:STEVAN';
has 'description' => (
);
has 'metadescription_classname' => (
- is => 'ro',
+ is => 'rw',
isa => 'Str',
lazy => 1,
default => sub {
'MooseX::MetaDescription::Description'
- }
+ }
);
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 ],