|
81
|
0 |
26 |
0 |
do {
$_ =~ /^$pn/ and exists $Coerce::Types::Standard::meta->{'types'}{$_}{'abuse'} and &$act($Coerce::Types::Standard::meta->{'types'}{$_}{'abuse'}, $hide) and return $Coerce::Types::Standard::meta->{'types'}{$_} foreach ($meta->type_names);
undef
} || $meta->add_type({'name', $parent->name . $counter++, 'parent', $parent->{'abuse_parent'} && $parent->{'abuse_parent'}->($hide) || $parent, 'coercion', $parent->{'abuse'}->($hide), 'abuse', $hide, $parent->{'abuse_constraint'} ? ('constraint', $parent->{'abuse_constraint'}->($hide)) : ()}) |