X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FRole%2FParameterized%2FMeta%2FRole%2FParameterizable.pm;h=a7c7e58936b284caf77706ba6dfc03d77bd3347e;hb=396466d48ca8d79a727cb7618d2a15ab1c0a1a78;hp=6718cc6e0c7c74943f1185f76d5a040f35c27f3c;hpb=1d669b8ab5c0622b950c8bbfb212ac8831ac309c;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 6718cc6..a7c7e58 100644 --- a/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm +++ b/lib/MooseX/Role/Parameterized/Meta/Role/Parameterizable.pm @@ -28,6 +28,9 @@ 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." if $name eq 'alias'