When generating inlining code, distinguish between $default from calling $attr->defau...

[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor.pm

diff --git a/lib/Moose/Meta/Method/Accessor.pm b/lib/Moose/Meta/Method/Accessor.pm
index 93148d0..e5da1f6 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -50,7 +50,7 @@ sub _eval_environment {
 
     $env->{'$trigger'} = \($attr->trigger)
         if $attr->has_trigger;
-    $env->{'$default'} = \($attr->default)
+    $env->{'$attr_default'} = \($attr->default)
         if $attr->has_default;
 
     if ($attr->has_type_constraint) {