X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FRole%2FParameterized%2FMeta%2FRole%2FParameterizable.pm;h=b66d86e8e347034e84c18703a2f5c51de57ef2f4;hb=f8f365484c40dd9778eb8611a0764857641831e1;hp=9a0c2af852ae645a709317a7a8d76bb584a19e72;hpb=d4408bfdd6148832d65855b39b337a56eb37eb6c;p=gitmo%2FMooseX-Role-Parameterized.git diff --git a/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm b/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm index 9a0c2af..b66d86e 100644 --- a/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm +++ b/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm @@ -7,7 +7,7 @@ use MooseX::Role::Parameterized::Parameters; use constant parameterized_role_metaclass => 'MooseX::Role::Parameterized::Meta::Role::Parameterized'; -has parameter_metaclass => ( +has parameters_metaclass => ( is => 'rw', isa => 'Moose::Meta::Class', lazy => 1, @@ -36,7 +36,7 @@ sub add_parameter { if $name eq 'alias' || $name eq 'excludes'; - $self->parameter_metaclass->add_attribute($name => @_); + $self->parameters_metaclass->add_attribute($name => @_); } sub construct_parameters { @@ -49,7 +49,7 @@ sub construct_parameters { if exists $args{$name}; } - $self->parameter_metaclass->new_object(\%args); + $self->parameters_metaclass->new_object(\%args); } sub generate_role {