X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FMethod%2FAccessor.pm;h=920871d8ff2982a5d0a9af0806b7193105af32a0;hb=59f5bbde66d61d15b684be88d138fd798ba851d0;hp=2b399e6ec15d06d194e05f3d8175134e23607eed;hpb=1aeb15481cdb866ee2e451a320619ffe591f2d19;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/Method/Accessor.pm b/lib/Moose/Meta/Method/Accessor.pm
index 2b399e6..920871d 100644
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -4,7 +4,7 @@ package Moose::Meta::Method::Accessor;
 use strict;
 use warnings;
 
-our $VERSION   = '0.63';
+our $VERSION   = '0.64';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
@@ -35,10 +35,8 @@ sub _eval_code {
     };
 
     #warn "code for $attr_name =>\n" . $code . "\n";
-    my $sub = $self->_eval_closure($environment, $code);
-    $self->throw_error("Could not create writer for '${\$self->associated_attribute->name}' because $@ \n code: $code", error => $@, data => $code ) if $@;
-    return $sub;
-
+    $self->_eval_closure($environment, $self->_prepare_code( code => $code ) )
+        or $self->throw_error("Could not create writer for '${\$self->associated_attribute->name}' because $@ \n code: $code", error => $@, data => $code );
 }
 
 sub generate_accessor_method_inline {