X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FAttribute.pm;h=cc43a3711fe3a3f38f5cb050f0b90c0a4b896603;hb=7fc19c3fe6c387eea8d5275aa830b3a43016fabc;hp=c1cb2fe36060e49ffc1640a1c2899d3c107a931d;hpb=7d2a0f10529e2effdb18d9f85a157700bf6236a7;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm index c1cb2fe..cc43a37 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{ @@ -394,7 +397,7 @@ Mouse::Meta::Attribute - The Mouse attribute metaclass =head1 VERSION -This document describes Mouse version 0.50 +This document describes Mouse version 0.50_02 =head1 METHODS