X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FRole%2FParameterized%2FMeta%2FRole%2FParameterizable.pm;h=9a0c2af852ae645a709317a7a8d76bb584a19e72;hb=e039cb6c33f02264cb0e8714b8cd52bc5dccb4c5;hp=c9f15538418cbe6011de1134ee2aa653d53f1c57;hpb=563f6b7c1d36e1c1efdc79330f95c034ec9bc0d1;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 c9f1553..9a0c2af 100644
--- a/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm
+++ b/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm
@@ -28,8 +28,11 @@ sub add_parameter {
     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';
 
@@ -42,7 +45,7 @@ sub construct_parameters {
 
     # 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};
     }
 
@@ -62,7 +65,7 @@ sub generate_role {
 
     local $MooseX::Role::Parameterized::CURRENT_METACLASS = $role;
 
-    $self->apply_parameterized_role($role);
+    $self->apply_parameterizable_role($role);
 
     $self->role_generator->($parameters,
         operating_on => $role,
@@ -80,7 +83,7 @@ sub apply {
     $role->apply($class, %args);
 }
 
-sub apply_parameterized_role {
+sub apply_parameterizable_role {
     my $self = shift;
 
     $self->SUPER::apply(@_);