From: Marcus Ramberg <marcus@nordaaker.com>
Date: Fri, 5 Dec 2008 13:11:32 +0000 (+0000)
Subject: Bump dependency for MoreUtils
X-Git-Tag: 0.62_02~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8d6f353b3ad54704dd88d485cee7ade5897a12c;p=gitmo%2FMoose.git

Bump dependency for MoreUtils
---

diff --git a/Makefile.PL b/Makefile.PL
index c3c4137..0e4ff84 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -13,7 +13,7 @@ requires 'perl'             => '5.008';
 requires 'Scalar::Util'     => '1.19';
 requires 'Carp';
 requires 'Class::MOP'       => '0.71_01';
-requires 'List::MoreUtils';
+requires 'List::MoreUtils'  => '0.12';
 requires 'Sub::Exporter'    => '0.972';
 requires 'Task::Weaken'     => '0';
 
diff --git a/lib/Moose/Meta/Method/Accessor.pm b/lib/Moose/Meta/Method/Accessor.pm
index b6852f7..fac4106 100644
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -32,6 +32,7 @@ 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;