X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FAttribute.pm;h=8abdd14cb0c4f808ca1f14e0ffa01aec7b3c2120;hb=a7d31de0432311c5a32a081dfdba694feb7c695d;hp=65d6daf77999218c1ee62f1ae9446fce6579488c;hpb=11d415286701d3b51e517cb6826138808967cb89;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm index 65d6daf..8abdd14 100644 --- a/lib/Mouse/Meta/Attribute.pm +++ b/lib/Mouse/Meta/Attribute.pm @@ -221,13 +221,6 @@ sub create { if exists $args{coerce}; if (exists $args{isa}) { - confess "Got isa => $args{isa}, but Mouse does not yet support parameterized types for containers other than ArrayRef and HashRef (rt.cpan.org #39795)" - if $args{isa} =~ /^([^\[]+)\[.+\]$/ && - $1 ne 'ArrayRef' && - $1 ne 'HashRef' && - $1 ne 'Maybe' - ; - my $type_constraint = delete $args{isa}; $args{type_constraint}= Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint($type_constraint); } @@ -268,7 +261,8 @@ sub create { } if($associated_methods == 0 && $is_metadata ne 'bare'){ - confess(qq{Attribute ($name) of class }.$class->name.qq{ has no associated methods (did you mean to provide an "is" argument?)}); + Carp::cluck(qq{Attribute ($name) of class }.$class->name.qq{ has no associated methods (did you mean to provide an "is" argument?)}); + } return $attribute;