| line |
true |
false |
branch |
|
19
|
0 |
5 |
unless (defined $avref) |
|
27
|
3 |
18 |
unless (/^-(no)?(.+)$/) |
|
28
|
0 |
3 |
if ($remainder) |
|
35
|
18 |
0 |
if (@$avref) |
|
36
|
14 |
4 |
if (exists $$flagref{$2}) |
|
37
|
8 |
6 |
if (ref $$flagref{$2} eq 'ARRAY') { } |
|
|
4 |
2 |
elsif (ref $$flagref{$2} eq 'HASH') { } |
|
41
|
8 |
4 |
unless @$avref and $$avref[0] =~ /^[^-]/ |
|
47
|
6 |
0 |
if ($v =~ /^(.*)=(.*)/) { } |
|
52
|
4 |
2 |
unless @$avref and $$avref[0] =~ /^[^-].*=/ |
|
60
|
4 |
0 |
if (exists $$switchref{$2}) |
|
84
|
2 |
1 |
if (defined &{"${package}::usage";}) |
|
94
|
0 |
1 |
if $remainder > 0 |
|
105
|
0 |
1 |
unless (defined $filename) |
|
112
|
0 |
1 |
unless open USAGESOURCEFILE, "<$filename" |
|
114
|
1 |
20 |
if /^# begin usage info/ |
|
117
|
14 |
5 |
if (/^\s*["'](\S+?)["']\s*=\>.*?\#\s*(\S.*)/) |
|
120
|
1 |
18 |
if /^# end usage info/ |
|
122
|
1 |
0 |
if (%$flagref) |
|
124
|
2 |
9 |
if (ref $$flagref{$f} eq 'ARRAY') { } |
|
|
1 |
8 |
elsif (ref $$flagref{$f} eq 'HASH') { } |
|
133
|
1 |
0 |
if (%$switchref) |