X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FMethod%2FConstructor.pm;h=2a9bf6c6677186a42e8b6daed4bdc29a5707bd90;hp=2867d718db80c3d09928eac5d260c316aada41a3;hb=0e503bd950b9880c383861e1e7ef40beef90937c;hpb=713a2a052a1918450652b3ef5093eeb6640c9e7b

diff --git a/lib/Mouse/Meta/Method/Constructor.pm b/lib/Mouse/Meta/Method/Constructor.pm
index 2867d71..2a9bf6c 100644
--- a/lib/Mouse/Meta/Method/Constructor.pm
+++ b/lib/Mouse/Meta/Method/Constructor.pm
@@ -81,7 +81,7 @@ sub _generate_processattrs {
                             push @code, "\$instance->$builder";
                         }
                         elsif (ref($default) eq 'CODE') {
-                            push @code, "\$attrs[$index]->default()->()";
+                            push @code, "\$attrs[$index]->default()->(\$instance)";
                         }
                         elsif (!defined($default)) {
                             push @code, 'undef';