another TODO note, re crazy init_arg strings
Karen Etheridge [Sun, 25 Mar 2012 16:08:38 +0000 (09:08 -0700)]
lib/MooseX/UndefTolerant/Class.pm

index 1e5e91c..a243605 100644 (file)
@@ -21,6 +21,7 @@ around _inline_init_attr_from_constructor => sub {
     my $type_constraint = $attr->type_constraint;
     my $tc_says_clean = ($type_constraint && !$type_constraint->check(undef) ? 1 : 0);
 
+    # FIXME: not properly sanitizing field names - e.g. consider a field name "Z'ha'dum"
     return ($tc_says_clean ? (
         "if ( exists \$params->{'$init_arg'} && defined \$params->{'$init_arg'} ) {",
         ) : (),