my $self = shift;
my $name = shift;
+ confess "You must provide a name for the parameter"
+ if !defined($name);
+
# need to figure out a plan for these guys..
- confess "The parameter name ($name) is currently forbidden."
+ confess "The parameter name ($name) is currently forbidden"
if $name eq 'alias'
|| $name eq 'excludes';
# need to figure out a plan for these guys..
for my $name ('alias', 'excludes') {
- confess "The parameter name ($name) is currently forbidden."
+ confess "The parameter name ($name) is currently forbidden"
if exists $args{$name};
}
local $MooseX::Role::Parameterized::CURRENT_METACLASS = $role;
- $self->apply_parameterized_role($role);
+ $self->apply_parameterizable_role($role);
$self->role_generator->($parameters,
operating_on => $role,
$role->apply($class, %args);
}
-sub apply_parameterized_role {
+sub apply_parameterizable_role {
my $self = shift;
$self->SUPER::apply(@_);