$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;
}
my $delegator = $self->delegation_metaclass;
Mouse::Util::load_class($delegator);
- return $delegator->_generate_delegation($self, $handle,
- ref($method_to_call) eq 'ARRAY'
- ? @{$method_to_call}
- : $method_to_call);
+ return $delegator->_generate_delegation($self, $handle, $method_to_call);
}
sub throw_error{