Revert unwanted MMM::Accessor change
Marcus Ramberg [Fri, 5 Dec 2008 14:53:43 +0000 (14:53 +0000)]
lib/Moose/Meta/Method/Accessor.pm

index fac4106..b6852f7 100644 (file)
@@ -32,7 +32,6 @@ sub _eval_code {
                                    : undef;
 
     #warn "code for $attr_name =>\n" . $code . "\n";
-    confess unless blessed $self;
     my $sub = eval $code;
     $self->throw_error("Could not create writer for '$attr_name' because $@ \n code: $code", error => $@, data => $code ) if $@;
     return $sub;