X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;h=9921711de189f774a822726d1125c53f7f37a650;hp=8c36df30f5753f3c674b74ca46b314cd5944504a;hb=a9d1cb9d89e107f2869022db91be07cea5dccc4f;hpb=de51e718045222d06aebbb34cc943927008a5512 diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index 8c36df3..9921711 100644 --- a/lib/Mouse/Object.pm +++ b/lib/Mouse/Object.pm @@ -39,7 +39,7 @@ sub new { my $value = $attribute->has_builder ? $instance->$builder : ref($default) eq 'CODE' - ? $default->() + ? $default->($instance) : $default; $attribute->verify_type_constraint($value)