| line |
true |
false |
branch |
|
26
|
0 |
2 |
if ($^O =~ /Win32/) |
|
37
|
2 |
0 |
if ($run_flag) { } |
|
60
|
0 |
5 |
if $_ eq '-' |
|
61
|
1 |
4 |
if $_ eq '--' |
|
63
|
2 |
2 |
if (/^-([_0-9a-zA-Z])$/s or /^--?([-_0-9a-zA-Z]{2,})$/s) { } |
|
|
1 |
1 |
elsif (/^-([_0-9a-zA-Z])=(.*?)$/s) { } |
|
|
1 |
0 |
elsif (/^--?([-_0-9a-zA-Z]{2,})=(.*?)$/s) { } |
|
65
|
0 |
2 |
if (not $$short{$1} || $$long{$1}) { } |
|
|
2 |
0 |
elsif ('yes_no' eq ($$short{$1} || $$long{$1})->{'type'} or 'HELP' eq ($$short{$1} || $$long{$1})->{'type'}) { } |
|
78
|
0 |
0 |
if @$args == 1 and $^O =~ /Win32/ |
|
83
|
0 |
1 |
if (not exists $$short{$1}) { } |
|
92
|
0 |
1 |
if (not exists $$long{$1}) { } |
|
104
|
0 |
2 |
if keys %$unknowns or @$args |
|
113
|
0 |
0 |
if (keys %$unknowns) |
|
115
|
0 |
0 |
unless s/^(.)$/-$1/s |
|
118
|
0 |
0 |
if @$args |
|
134
|
2 |
2 |
length $key == 1 ? : |
|
145
|
0 |
4 |
if ($type eq 'HELP') |
|
146
|
0 |
0 |
length $key == 1 ? : |
|
151
|
0 |
4 |
if ($seen{$option} > 1) |
|
158
|
2 |
2 |
if ($type eq 'yes_no') { } |
|
|
0 |
2 |
elsif ($type eq 'string') { } |
|
|
0 |
2 |
elsif ($type eq 'new_file') { } |
|
|
0 |
2 |
elsif ($type eq 'file') { } |
|
|
2 |
0 |
elsif ($type eq 'choose') { } |
|
165
|
0 |
0 |
if (not length $$slot_r) { } |
|
173
|
0 |
0 |
if (not length $$slot_r) { } |
|
177
|
0 |
0 |
unless -e $$slot_r |
|
178
|
0 |
0 |
if -d _ |
|
179
|
0 |
0 |
unless -f _ |
|
180
|
0 |
0 |
unless -r _ |
|
185
|
2 |
0 |
if (grep(($_ eq $$slot_r), @{$$option{'from'};})) { } |