lib/MooseX/UndefTolerant/Constructor.pm

   1 package MooseX::UndefTolerant::Constructor;
   2 use Moose::Role;
   3
   4 around _generate_slot_initializer => sub {
   5     my $orig = shift;
   6     my $self = shift;
   7
   8     # note the key in the params may not match the attr name.
   9     my $key_name = $self->_attributes->[$_[0]]->init_arg;
  10
  11     # insert a line of code at the start of the initializer,
  12     # clearing the param if it's undefined.
  13
  14     if (defined $key_name)
  15     {
  16         # leave the value unscathed if the attribute's type constraint can
  17         # handle undef (or doesn't have one, which implicitly means it can)
  18         my $type_constraint = $self->_attributes->[$_[0]]->type_constraint;
  19         if ($type_constraint and not $type_constraint->check(undef))
  20         {
  21             my $tolerant_code =
  22                 qq# delete \$params->{'$key_name'} unless # .
  23                 qq# exists \$params->{'$key_name'} && defined \$params->{'$key_name'};\n#;
  24
  25             return $tolerant_code . $self->$orig(@_);
  26         }
  27     }
  28
  29     return $self->$orig(@_);
  30 };
  31
  32 no Moose::Role;
  33 1;