X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FRole.pm;h=f1fd0c76cae86739052f2b06edeff3a7a4fe49c5;hb=4b2189ce8dae168787b635b71a918bd64461ed7a;hp=4260f92498b85f8d7565c9d5bdb202e621095c82;hpb=722c9bcbe9633bbebe5b71773b8d8e574385b604;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm index 4260f92..f1fd0c7 100644 --- a/lib/Moose/Meta/Role.pm +++ b/lib/Moose/Meta/Role.pm @@ -8,7 +8,7 @@ use metaclass; use Scalar::Util 'blessed'; use Carp 'confess'; -our $VERSION = '0.71'; +our $VERSION = '0.72'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -122,8 +122,10 @@ foreach my $action ( sub add_attribute { my $self = shift; my $name = shift; - (defined $name && $name) - || Moose->throw_error("You must provide a name for the attribute"); + unless ( defined $name && $name ) { + require Moose; + Moose->throw_error("You must provide a name for the attribute"); + } my $attr_desc; if (scalar @_ == 1 && ref($_[0]) eq 'HASH') { $attr_desc = $_[0];