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' |