X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FAttribute.pm;h=6a897742a0e25eabb0533e2db78cc14f1294f460;hp=1fa1dd0f5ccfd24130e6f78c79291a627e87570f;hb=a2db83e38b11a6f16370ade6061dec71ab4b8106;hpb=05a12aa45fbcd22111d4f5dde2736c8361540198

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 1fa1dd0..6a89774 100644
--- 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{