X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;h=c7add331d08377de7beb5a3f9085440bdd056338;hp=fcfaf6b094d4e6fcdc75968bae432bff1a9bb7d3;hb=0e503bd950b9880c383861e1e7ef40beef90937c;hpb=713a2a052a1918450652b3ef5093eeb6640c9e7b diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index fcfaf6b..c7add33 100644 --- a/lib/Mouse/Object.pm +++ b/lib/Mouse/Object.pm @@ -40,7 +40,7 @@ sub new { my $value = $attribute->has_builder ? $instance->$builder : ref($default) eq 'CODE' - ? $default->() + ? $default->($instance) : $default; $value = $attribute->coerce_constraint($value)