builder inline accessor bug fix and new test

[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 530e23e..6b387da 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -160,7 +160,7 @@ sub _inline_check_lazy {
                    '        my $default; '.
                    '        $default = $attr->default(' . $inv . ')  if $attr->has_default;' .
                    '        if ( $attr->has_builder ) { '.
-                   '            my $builder = $self->builder;'.
+                   '            my $builder = $attr->builder;'.
                    '            if($builder = '.$inv.'->can($builder)){ '.
                    '                $default = '.$inv.'->$builder; '.
                    '            } else { '.