if ($attr->has_type_constraint) {
$code .= "{
- local \$_ = \$value;
- unless (\$attrs[$index]->{find_type_constraint}->(\$_)) {
+ unless (\$attrs[$index]->{find_type_constraint}->(\$value)) {
\$attrs[$index]->verify_type_constraint_error('$key', \$_, \$attrs[$index]->type_constraint)
}
}";
if ($attr->has_type_constraint) {
$code .= "{
- local \$_ = \$value;
- unless (\$attrs[$index]->{find_type_constraint}->(\$_)) {
+ unless (\$attrs[$index]->{find_type_constraint}->(\$value)) {
\$attrs[$index]->verify_type_constraint_error('$key', \$_, \$attrs[$index]->type_constraint)
}
}";
return <<'...';
do {
if ( scalar @_ == 1 ) {
- if ( defined $_[0] ) {
- ( ref( $_[0] ) eq 'HASH' )
+ ( ref( $_[0] ) eq 'HASH' )
|| Carp::confess "Single parameters to new() must be a HASH ref";
- +{ %{ $_[0] } };
- }
- else {
- +{};
- }
+ +{ %{ $_[0] } };
}
else {
+{@_};