| blib/lib/Perinci/Sub/Property/exit_on_error.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 0 | 6 | unless $v |
| 35 | 2 | 4 | if $self->{'_meta'}{'result_naked'} |
| 37 | 2 | 2 | if ref $v ne 'HASH' |
| 42 | 0 | 4 | if (defined $v->{$k} and ref $v->{$k} ne 'Regexp') |
| 56 | 4 | 0 | $self->{'_args'}{'sub_name'} ? : |