| line |
true |
false |
branch |
|
21
|
0 |
3 |
@_ ? : |
|
32
|
0 |
9 |
ref $_[0] eq 'HASH' ? : |
|
34
|
0 |
14 |
unless $key =~ /^[a-zA-Z]/u |
|
50
|
0 |
7 |
if ($obj eq __PACKAGE__) |
|
54
|
7 |
0 |
if @$my_argv |
|
76
|
0 |
7 |
if @{$argv;} == 0 |
|
79
|
12 |
0 |
unless ref $_ |
|
82
|
0 |
8 |
ref $_ ? : |
|
|
5 |
2 |
if $REPLACE_UNDERSCORE |
|
95
|
1 |
6 |
unless $p->getoptionsfromarray($argv, $obj, "config=s", sub {
$obj->config(arg2kvlist($_[1]));
}
, @_) |
|
100
|
0 |
0 |
if (@_ == 1) { } |
|
118
|
0 |
0 |
unless exists $c->{$name} |
|
119
|
0 |
0 |
if (ref $c->{$name}) { } |
|
131
|
0 |
0 |
if (ref $c->{$key}) { } |
|
146
|
7 |
0 |
if (@$argv and not $argv->[0] =~ /^-M/u and defined(my $i = &first(sub {
$argv->[$_] eq "--";
}
, keys @$argv))) |