1 package MooseX::UndefTolerant::Constructor;
4 around('_generate_slot_initializer', sub {
7 my $attr = $self->_attributes->[$_[0]]->init_arg;
10 qq# delete \$params->{'$attr'} unless # .
11 qq# exists \$params->{'$attr'} && defined \$params->{'$attr'};\n#;
13 return $tolerant_code . $self->$orig(@_);