| blib/lib/Getopt/EX/Config.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 16 | 31.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 146 | 0 | 0 | 7 | @$argv and not $argv->[0] =~ /^-M/u |
| 0 | 0 | 7 | @$argv and not $argv->[0] =~ /^-M/u and defined(my $i = &first(sub { $argv->[$_] eq "--"; } , keys @$argv)) |
| line | l | !l | condition |
|---|---|---|---|
| 51 | 0 | 0 | $CONFIG{caller()} // die() |
| 61 | 1 | 0 | $obj->{'_argv'} // [] |
| 75 | 7 | 0 | shift() // [] |
| 86 | 7 | 0 | $obj->{'_configure'} // [] |
| 116 | 0 | 0 | $c->{$_} // die("${k}: invalid name.\n") |