| line |
true |
false |
branch |
|
47
|
0 |
0 |
if $DEBUG |
|
50
|
0 |
0 |
if (length $mopt == 1 or $mopt =~ /\-n/i or $mopt =~ /\+-n/i) { } |
|
68
|
0 |
0 |
if ($mopt ne lc $mopt) |
|
73
|
0 |
0 |
if ($mopt eq 'x' or $mopt eq 'a' or $mopt =~ /n$/ or $mopt eq 'f') { } |
|
|
0 |
0 |
elsif ($mopt eq 'm') { } |
|
|
0 |
0 |
elsif ($mopt eq 'c' or $mopt eq 'i') { } |
|
|
0 |
0 |
elsif ($mopt eq 'r') { } |
|
|
0 |
0 |
elsif ($mopt eq 'e') { } |
|
|
0 |
0 |
elsif ($mopt eq 's') { } |
|
|
0 |
0 |
elsif ($mopt eq 'y') { } |
|
|
0 |
0 |
elsif ($mopt eq 'p') { } |
|
91
|
0 |
0 |
unless ref $coderef eq 'CODE' |
|
96
|
0 |
0 |
unless (defined $prompt_options and length $prompt_options) |
|
97
|
0 |
0 |
if ($uc) { } |
|
104
|
0 |
0 |
if (defined $default) { } |
|
105
|
0 |
0 |
unless ($default =~ /^[ynYN]/) |
|
106
|
0 |
0 |
if ($default) { } |
|
128
|
0 |
0 |
if (not $menu) { } |
|
151
|
0 |
0 |
if length $_ > $entry_length |
|
162
|
0 |
0 |
defined $menu{'cols'} ? : |
|
167
|
0 |
0 |
defined $menu{'rows'} ? : |
|
179
|
0 |
0 |
if ($menu{'order'} =~ /ACROSS/i) { } |
|
185
|
0 |
0 |
if $idx eq scalar @menu_items |
|
194
|
0 |
0 |
if $idx eq scalar @menu_items |
|
199
|
0 |
0 |
if (length $menu{'title'}) |
|
205
|
0 |
0 |
if defined $menu_out[$row][$col] |
|
208
|
0 |
0 |
if (defined $menu_out[$row][$num_cols - 1]) { } |
|
215
|
0 |
0 |
if ($number_menu_items != $num_rows * $num_cols) |
|
219
|
0 |
0 |
unless (defined $prompt_options and length $prompt_options) |
|
221
|
0 |
0 |
if ($menu{'accept_multiple_selections'}) |
|
227
|
0 |
0 |
unless ($before or $uc or $prompt_options eq '') |
|
231
|
0 |
0 |
if (defined $default and $default ne '') |
|
238
|
0 |
0 |
if (defined $/) |
|
244
|
0 |
0 |
if $passwd |
|
246
|
0 |
0 |
if $passwd |
|
248
|
0 |
0 |
if (defined $old_divide) { } |
|
259
|
0 |
0 |
if $repl eq '' |
|
261
|
0 |
0 |
if (not $menu and $repl eq '' and not $uc) |
|
267
|
0 |
0 |
if $DEBUG |
|
271
|
0 |
0 |
if ($uc and $repl eq '') { } |
|
|
0 |
0 |
elsif ($type or $passwd) { } |
|
|
0 |
0 |
elsif ($menu) { } |
|
|
0 |
0 |
elsif ($legal) { } |
|
|
0 |
0 |
elsif ($range) { } |
|
|
0 |
0 |
elsif ($expr) { } |
|
|
0 |
0 |
elsif ($code) { } |
|
|
0 |
0 |
elsif ($yn) { } |
|
291
|
0 |
0 |
if ($ok) { } |
|
|
0 |
0 |
elsif (defined $prompt_options and length $prompt_options) { } |
|
292
|
0 |
0 |
if ($menu) { } |
|
293
|
0 |
0 |
if ($menu{'accept_multiple_selections'}) { } |
|
294
|
0 |
0 |
wantarray ? : |
|
302
|
0 |
0 |
if ($uc) { } |
|
305
|
0 |
0 |
unless ($menu) |
|
319
|
0 |
0 |
if ($low <= $repl and $repl <= $high) { } |
|
|
0 |
0 |
elsif (not $uc) { } |
|
334
|
0 |
0 |
if (grep {$_ eq $repl;} @things) |
|
340
|
0 |
0 |
if ($mopt eq 'i') { } |
|
346
|
0 |
0 |
if (scalar @match == 1) { } |
|
349
|
0 |
0 |
unless ($uc) |
|
360
|
0 |
0 |
if $dbg |
|
362
|
0 |
0 |
if ($mopt eq 'x' or $mopt eq 'p') { } |
|
|
0 |
0 |
elsif ($mopt eq 'a') { } |
|
|
0 |
0 |
elsif ($mopt eq 'n') { } |
|
|
0 |
0 |
elsif ($mopt eq '-n') { } |
|
|
0 |
0 |
elsif ($mopt eq '+-n') { } |
|
|
0 |
0 |
elsif ($mopt eq 'f') { } |
|
365
|
0 |
0 |
if ($repl =~ /^[a-zA-Z]*$/) { } |
|
|
0 |
0 |
elsif (not $uc) { } |
|
371
|
0 |
0 |
if ($repl =~ /^[0-9]*$/) { } |
|
|
0 |
0 |
elsif (not $uc) { } |
|
377
|
0 |
0 |
if ($repl =~ /^-[0-9]*$/) { } |
|
|
0 |
0 |
elsif (not $uc) { } |
|
383
|
0 |
0 |
if ($repl =~ /^-?[0-9]*$/) { } |
|
|
0 |
0 |
elsif (not $uc) { } |
|
389
|
0 |
0 |
if ($repl =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d)?([Ee]([+-]?\d+))?$/) { } |
|
|
0 |
0 |
elsif (not $uc) { } |
|
403
|
0 |
0 |
if $dbg |
|
411
|
0 |
0 |
if ($menu{'ignore_whitespace'}) { } |
|
419
|
0 |
0 |
if ($menu{'ignore_empties'}) |
|
424
|
0 |
0 |
if (scalar @repls > 1 and not $menu{'accept_multiple_selections'}) { } |
|
|
0 |
0 |
elsif (not scalar @repls || $menu{'accept_empty_selection'}) { } |
|
434
|
0 |
0 |
unless (rangeit $_, $menu{'low'}, $menu{'high'}, 1) |
|
441
|
0 |
0 |
if (scalar @msgs) { } |
|
455
|
0 |
0 |
if $dbg |
|
457
|
0 |
0 |
if ($repl =~ /^$regexp$/) { } |
|
|
0 |
0 |
elsif (not $uc && defined $prompt_options && length $prompt_options) { } |
|
470
|
0 |
0 |
if $dbg |
|
472
|
0 |
0 |
if (&$coderef($repl)) { } |
|
|
0 |
0 |
elsif (not $uc && defined $prompt_options && length $prompt_options) { } |
|
484
|
0 |
0 |
if $dbg |
|
486
|
0 |
0 |
if ($repl =~ /^[0nN]/) { } |
|
|
0 |
0 |
elsif ($repl =~ /^[1yY]/) { } |
|
|
0 |
0 |
elsif (not $uc) { } |
|
498
|
0 |
0 |
if ($#_ > 0) { } |
|
499
|
0 |
0 |
if (defined $,) { } |
|
510
|
0 |
0 |
if (defined $width and $width) |
|
514
|
0 |
0 |
if ($message =~ /\n\Z/) { } |