fix asserter generator not passing $spec
Graham Knop [Sun, 17 Mar 2013 22:21:01 +0000 (18:21 -0400)]
lib/Method/Generate/Accessor.pm

index 594c81c..e5ca31d 100644 (file)
@@ -538,7 +538,7 @@ sub _generate_asserter {
 
   "do {\n"
    ."  my \$val = ".$self->_generate_get($name, $spec).";\n"
-   ."  unless (".$self->_generate_simple_has('$_[0]', $name).") {\n"
+   ."  unless (".$self->_generate_simple_has('$_[0]', $name, $spec).") {\n"
    .qq!    die "Attempted to access '${name}' but it is not set";\n!
    ."  }\n"
    ."  \$val;\n"