X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FUndefTolerant%2FConstructor.pm;fp=lib%2FMooseX%2FUndefTolerant%2FConstructor.pm;h=2463bf25c66cbcb3fb3e40ef31b0ccf5fe8efefa;hb=b2c5b43cb2decfa49933f4254050716bc7ff91e0;hp=b9ccc0b03b1882d505e98988059c94a5275cb9cb;hpb=7e9c113df7e76c2009e9c48f9d4d3ca6c18bc690;p=gitmo%2FMooseX-UndefTolerant.git diff --git a/lib/MooseX/UndefTolerant/Constructor.pm b/lib/MooseX/UndefTolerant/Constructor.pm index b9ccc0b..2463bf2 100644 --- a/lib/MooseX/UndefTolerant/Constructor.pm +++ b/lib/MooseX/UndefTolerant/Constructor.pm @@ -13,8 +13,8 @@ if ( $Moose::VERSION < 1.9900 ) { # clearing the param if it's undefined. if (defined $key_name) { - my $tolerant_code = - qq# delete \$params->{'$key_name'} unless # . + my $tolerant_code = + qq# delete \$params->{'$key_name'} unless # . qq# exists \$params->{'$key_name'} && defined \$params->{'$key_name'};\n#; return $tolerant_code . $self->$orig(@_);