Implement strict constructors, which will warn unkown constructor arguments

[gitmo/Mouse.git] / lib / Mouse / Meta / Attribute.pm

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 1fa1dd0..6a89774 100644 (file)
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -375,7 +375,10 @@ sub _make_delegation_method {
     my $delegator = $self->delegation_metaclass;
     Mouse::Util::load_class($delegator);
 
-    return $delegator->_generate_delegation($self, $handle, $method_to_call);
+    return $delegator->_generate_delegation($self, $handle,
+        ref($method_to_call) eq 'ARRAY'
+            ? @{$method_to_call}
+            :   $method_to_call);
 }
 
 sub throw_error{