'curries',
);
+our @CARP_NOT = qw(Mouse::Meta::Class);
+
sub new {
my $class = shift;
my $name = shift;
# (3) bad options found
if(@bad){
- @bad = sort @bad;
- Carp::cluck("Found unknown argument(s) passed to '$name' attribute constructor in '$class': @bad");
+ Carp::carp(
+ "Found unknown argument(s) passed to '$name' attribute constructor in '$class': "
+ . Mouse::Util::english_list(@bad));
}
my $self = bless $args, $class;
$attribute->create($metaclass, $attribute->name, %{$attribute});
}
- if(!$attribute->{associated_methods} && ($attribute->{is} || '') ne 'bare'){
- Carp::cluck(
- 'Attribute (' . $attribute->name . ') of class ' . $metaclass->name
- . ' has no associated methods (did you mean to provide an "is" argument?)');
- }
-
return;
}