'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;
sub _make_delegation_method {
my($self, $handle, $method_to_call) = @_;
- my $delegator = $self->delegation_metaclass;
- Mouse::Util::load_class($delegator);
-
- return $delegator->_generate_delegation($self, $handle, $method_to_call);
+ return Mouse::Util::load_class($self->delegation_metaclass)
+ ->_generate_delegation($self, $handle, $method_to_call);
}
sub throw_error{
=head1 VERSION
-This document describes Mouse version 0.50_01
+This document describes Mouse version 0.50_08
=head1 METHODS