| blib/lib/Perinci/Result/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 14 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 2 | 16 | unless ref $res eq 'ARRAY' |
| 20 | 1 | 15 | unless @$res <= 4 |
| 23 | 2 | 8 | unless defined $res->[0] and $res->[0] =~ /\A[0-9]{1,3}\z/ and $res->[0] >= 100 and $res->[0] < 599 |
| 27 | 1 | 7 | if ref $res->[1] |
| 28 | 6 | 1 | if (defined $res->[1]) |
| 29 | 1 | 5 | unless $res->[1] =~ /[A-Za-z]/ |
| 33 | 1 | 5 | if defined $res->[3] and ref $res->[3] ne 'HASH' |