| blib/lib/Perinci/Sub/GetArgs/Array.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 14 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 83 | 0 | 9 | unless my $ary = $fargs{'array'} |
| 84 | 0 | 9 | unless my $meta = $fargs{'meta'} |
| 85 | 9 | 0 | unless ($fargs{'meta_is_normalized'}) |
| 99 | 10 | 20 | if (defined $o and $o == $i) |
| 100 | 3 | 7 | if ($as->{'greedy'}) { } |
| 103 | 2 | 1 | if ($type eq 'array') { } |
| 117 | 1 | 8 | if @$ary and not $allow_extra_elems |