# (3) bad options found
if(@bad){
@bad = sort @bad;
- Carp::cluck("Found unknown argument(s) passed to '$name' attribute constructor in '$class': @bad");
+ local $Carp::Internal{'Mouse'} = 1;
+ local $Carp::Internal{'Mouse::Meta::Class'} = 1;
+ Carp::carp("Found unknown argument(s) passed to '$name' attribute constructor in '$class': @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_02
+This document describes Mouse version 0.50_03
=head1 METHODS