1 package MooseX::UndefTolerant::Constructor;
4 around('_generate_slot_initializer', sub {
7 my $attr = $self->_attributes->[$_[0]]->init_arg;
9 # insert a line of code at the start of the initializer,
10 # clearing the param if it's undefined.
14 qq# delete \$params->{'$attr'} unless # .
15 qq# exists \$params->{'$attr'} && defined \$params->{'$attr'};\n#;
17 return $tolerant_code . $self->$orig(@_);
20 return $self->$orig(@_);