blib/lib/Getargs/Mixed.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 12 | 12 | 100.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
227 | 1 | 126 | 117 | defined $_[0] and $_[0] =~ /^-/ |
230 | 2 | 4 | 121 | @$spec and $spec->[0] |
251 | 2 | 219 | 66 | @$spec > 0 and @$spec[-1] eq '*' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
251 | 66 | 219 | 2 | @$spec > 0 and @$spec[-1] eq '*' or grep {$name eq $_;} @$spec |