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=c1cb2fe36060e49ffc1640a1c2899d3c107a931d;hb=e128626c409797822ffd8a4079f833eb3dc0fd37;hpb=7d2a0f10529e2effdb18d9f85a157700bf6236a7 diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm index c1cb2fe..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{ @@ -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_01 =head1 METHODS