this only matters for lazy attributes with initializers

[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 8601487..6ee2873 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -63,7 +63,7 @@ sub _eval_environment {
 
     # XXX ugh, fix these
     $env->{'$attr'} = \$attr
-        if $attr->has_initializer;
+        if $attr->has_initializer && $attr->is_lazy;
     $env->{'$meta'} = \$self;
 
     return $env;