X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FUndefTolerant%2FClass.pm;h=a2436054720efbf4c9eae98c7d2d13906d411e3f;hb=72f76bd18a4e11dd3edd2b581cb6b0e0898bcc56;hp=1e5e91c316daa40f18a0bbe10cf9d48fc45e3c7c;hpb=f6bb95bdebbbae7cf93ef9c3c5644d810c21292f;p=gitmo%2FMooseX-UndefTolerant.git

diff --git a/lib/MooseX/UndefTolerant/Class.pm b/lib/MooseX/UndefTolerant/Class.pm
index 1e5e91c..a243605 100644
--- a/lib/MooseX/UndefTolerant/Class.pm
+++ b/lib/MooseX/UndefTolerant/Class.pm
@@ -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'} ) {",
         ) : (),