? $type_constraint_obj->_compiled_type_constraint
: undef;
+ #warn "code for $attr_name =>\n" . $code . "\n";
my $sub = eval $code;
confess "Could not create writer for '$attr_name' because $@ \n code: $code" if $@;
return $sub;
my $attr_name = $attr->name;
return '' unless $attr->is_required;
- return qq{defined(\$_[1]) || confess "Attribute ($attr_name) is required, so cannot be set to undef";}
+ return qq{(\@_ >= 2) || confess "Attribute ($attr_name) is required, so cannot be set to undef";} # defined $_[1] is not good enough
}
sub _inline_check_lazy {