| blib/lib/Perinci/Sub/Normalize.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 40 | 47 | 85.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 40 | 14 | 1 | 1 | defined $slurpy_pos and $slurpy_pos < @arg_at_pos - 1 |
| 46 | 14 | 0 | 0 | $meta->{'args_as'} and $meta->{'args_as'} =~ /\Aarray(ref)?\z/ |
| 64 | 2 | 0 | 30 | defined $meta->{'v'} and $meta->{'v'} eq $ver |
| 85 | 113 | 2 | 1 | defined $attr and $attr =~ /\A_|\._/ |
| 109 | 2 | 100 | 9 | $prop_proplist and $prop_proplist->{'_prop'} |
| 2 | 100 | 0 | $prop_proplist and $prop_proplist->{'_elem_prop'} | |
| 2 | 100 | 0 | $prop_proplist and $prop_proplist->{'_value_prop'} | |
| 162 | 55 | 3 | 24 | $k eq "schema" and $opt_nss |
| line | l | !l | condition |
|---|---|---|---|
| 177 | 4 | 24 | $opts //= {} |
| 179 | 2 | 26 | $opts->{'allow_unknown_properties'} //= 0 |
| 180 | 1 | 27 | $opts->{'normalize_sah_schemas'} //= 1 |
| 181 | 1 | 27 | $opts->{'remove_internal_properties'} //= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 33 | 5 | 1 | 14 | $argspec->{'slurpy'} or $argspec->{'greedy'} |
| 85 | 4 | 17 | 99 | $prop =~ /\A_/ or defined $attr and $attr =~ /\A_|\._/ |
| 95 | 7 | 104 | 4 | $opt_aup or $prop_proplist |
| 96 | 0 | 2 | 2 | $modprefix //= $prefix |
| 106 | 7 | 104 | 0 | $opt_aup or $prop_proplist |