| line |
true |
false |
branch |
|
20
|
0 |
1 |
if $retain |
|
25
|
0 |
3 |
if ($x eq '-') { } |
|
|
1 |
2 |
elsif ($x eq '--') { } |
|
|
1 |
1 |
elsif ($x =~ /--?([^=]+)=([^=]*)/s) { } |
|
|
1 |
0 |
elsif ($x =~ /--?([^=]+)/s) { } |
|
|
0 |
0 |
elsif (length $x and substr($x, 0, 1) eq '-') { } |
|
33
|
0 |
1 |
if (not exists $h{$1}) { } |
|
|
1 |
0 |
elsif (ref($h{$1} || '') eq 'ARRAY') { } |
|
34
|
0 |
0 |
unless $permissive |
|
44
|
0 |
1 |
if (not exists $h{$1}) { } |
|
|
0 |
1 |
elsif (ref($h{$1} || '') eq 'ARRAY') { } |
|
45
|
0 |
0 |
unless $permissive |
|
54
|
0 |
0 |
unless $permissive |
|
61
|
0 |
1 |
if $retain |
|
63
|
0 |
1 |
if (@unknowns) |
|
64
|
0 |
0 |
if (ref($usage || '') eq 'CODE') { } |
|
67
|
0 |
0 |
@unknowns == 1 ? : |
|
69
|
0 |
0 |
if (defined $usage) { } |
|
73
|
0 |
0 |
@x == 1 ? : |
|
80
|
0 |
0 |
if ($] <= 5.00599) { } |
|
90
|
0 |
3 |
unless length $name and substr($name, 0, 1) ne ':' |
|
92
|
1 |
2 |
if (ref($value || '') eq 'ARRAY') { } |