| line |
true |
false |
branch |
|
39
|
0 |
0 |
if $DEBUG |
|
41
|
0 |
0 |
if (defined $ON and $ON ne "") |
|
42
|
0 |
0 |
if defined $reset |
|
44
|
0 |
0 |
if $DEBUG |
|
47
|
26 |
0 |
unless defined $_import_called |
|
183
|
0 |
28 |
if $orig_string ne $_ |
|
192
|
0 |
28 |
if ($last_call = $_ eq '') { } |
|
198
|
0 |
28 |
if $orig_string ne $_ |
|
201
|
0 |
28 |
if $DEBUG > 1 |
|
202
|
0 |
0 |
if $DEBUG > 1 and $LOGGING |
|
205
|
0 |
28 |
if $DEBUG > 1 |
|
209
|
22 |
43 |
if $loopnum == 2 |
|
211
|
0 |
65 |
if $DEBUG > 1 |
|
212
|
0 |
65 |
if $loopnum > 25 |
|
213
|
0 |
65 |
if $loopnum > 100 |
|
214
|
0 |
65 |
if $DEBUG > 3 and pos $_ |
|
216
|
0 |
65 |
unless /\S/ |
|
222
|
0 |
65 |
if ($select2foreach) { } |
|
227
|
0 |
0 |
if s/\bselect\b/foreach /g |
|
239
|
0 |
68 |
if $DEBUG_FILT > 0 |
|
241
|
0 |
68 |
unless defined pos $_ |
|
250
|
40 |
28 |
if (/$RE/g) { } |
|
255
|
0 |
40 |
if $DEBUG_FILT > 1 |
|
264
|
11 |
29 |
if (/\G$RE_decl/g) { } |
|
273
|
0 |
40 |
if $DEBUG_FILT > 1 |
|
276
|
0 |
40 |
if $DEBUG_FILT > 0 |
|
279
|
0 |
40 |
if $DEBUG_FILT > 0 |
|
281
|
0 |
40 |
if $DEBUG_FILT > 0 |
|
283
|
26 |
14 |
if (defined $loop_var and $loop_var ne '') { } |
|
285
|
0 |
26 |
if $DEBUG_FILT > 0 |
|
290
|
0 |
14 |
if $DEBUG_FILT > 0 |
|
292
|
0 |
40 |
if $DEBUG_FILT > 1 |
|
298
|
40 |
0 |
if (defined $loop_list and $loop_list ne '') { } |
|
302
|
0 |
40 |
if $DEBUG_FILT > 1 |
|
308
|
0 |
0 |
if ($got_loop_var) { } |
|
309
|
0 |
0 |
if $DEBUG_FILT > 3 |
|
315
|
0 |
0 |
if $DEBUG_FILT > 3 |
|
318
|
0 |
0 |
if $DEBUG_FILT > 0 |
|
319
|
0 |
0 |
if (++$iteration < $maxloops) { } |
|
332
|
37 |
3 |
if (defined $loop_block and $loop_block ne '') { } |
|
336
|
0 |
37 |
if $DEBUG_FILT > 1 |
|
342
|
0 |
3 |
if ($got_loop_var) { } |
|
348
|
0 |
3 |
if $DEBUG_FILT > 3 |
|
352
|
0 |
3 |
if $DEBUG_FILT > 0 |
|
362
|
0 |
37 |
if ($matched == 0) { } |
|
369
|
0 |
37 |
if ($matched == 1) |
|
372
|
0 |
37 |
if ($matched == 2) { } |
|
|
37 |
0 |
elsif ($matched >= 3) { } |
|
374
|
0 |
0 |
unless $got_list |
|
375
|
0 |
0 |
unless $got_codeblock |
|
386
|
37 |
0 |
if ($matched > 1) |
|
388
|
0 |
37 |
if $DEBUG > 0 |
|
395
|
37 |
0 |
$matched >= 2 ? : |
|
399
|
37 |
0 |
if ($can_rewrite) |
|
413
|
0 |
37 |
if $DEBUG_FILT > 2 |
|
435
|
28 |
0 |
if $loopnum > 0 |
|
438
|
0 |
28 |
if $LOGGING |
|
439
|
0 |
28 |
if $DEBUG_FILT > 2 |
|
450
|
0 |
0 |
if defined $match |
|
452
|
0 |
0 |
if defined $pos |
|
462
|
0 |
0 |
if $DEBUG > 0 |
|
480
|
0 |
37 |
if ($U_DEBUG > 3) |
|
496
|
2 |
35 |
if (not defined $values or $values =~ /^\s*\(\s*\)\s*$/) |
|
507
|
11 |
26 |
if (defined $decl and $decl ne '' and defined $loop_var and $loop_var ne '') { } |
|
|
0 |
26 |
elsif (defined $decl and $decl ne '' and !defined($loop_var) || $loop_var eq '') { } |
|
|
15 |
11 |
elsif (defined $loop_var and $loop_var ne '' and !defined($decl) || $decl eq '') { } |
|
509
|
0 |
11 |
if $LOGGING |
|
515
|
0 |
0 |
if $LOGGING |
|
523
|
0 |
15 |
if $LOGGING |
|
527
|
0 |
11 |
if $LOGGING |
|
533
|
2 |
35 |
if (not defined $codeblock or $codeblock =~ /^\s*{\s*}\s*$/) |
|
546
|
0 |
37 |
if ($default_loopvar or $loop_var =~ /^\$::\w+/) { } |
|
549
|
0 |
37 |
if $DEBUG > 1 |
|
552
|
0 |
37 |
if ($loop_var2 ne $loop_var) |
|
553
|
0 |
0 |
if $DEBUG > 1 and warn "${PKG}: extracted var diff from parsed var: ", $DEBUG > 0 |
|
564
|
15 |
22 |
unless defined $decl |
|
571
|
0 |
37 |
if defined $decl and $decl eq "unset" |
|
584
|
0 |
37 |
unless (defined $values and $values ne "") |
|
585
|
0 |
0 |
if $DEBUG > 1 |
|
589
|
22 |
15 |
defined $decl && $decl ne '' ? : |
|
611
|
0 |
37 |
if $LOGGING |
|
612
|
0 |
37 |
if $DEBUG > 4 |
|
627
|
0 |
37 |
if $LOGGING |
|
629
|
0 |
37 |
if ($DEBUG > 4) |
|
633
|
0 |
0 |
unless defined $_autoprompt |
|
634
|
0 |
0 |
unless defined $codestring |
|
776
|
0 |
37 |
if $LOGGING |
|
784
|
0 |
37 |
if $LOGGING |
|
804
|
4 |
18 |
unless (@values) |
|
817
|
18 |
17 |
if ($l = length $values[$i]) > $v_length |
|
819
|
0 |
0 |
if $DEBUG > 3 and $LOGGING |
|
822
|
0 |
0 |
if $DEBUG > 3 and $LOGGING |
|
825
|
18 |
0 |
@values > 0 ? : |
|
|
0 |
18 |
@values >= 10 ? : |
|
|
0 |
18 |
@values >= 100 ? : |
|
|
0 |
18 |
@values >= 1000 ? : |
|
|
0 |
18 |
@values >= 10000 ? : |
|
832
|
0 |
0 |
if $DEBUG > 3 and $LOGGING |
|
834
|
0 |
18 |
unless (defined $l_length) |
|
846
|
0 |
18 |
if $columns < 1 |
|
848
|
0 |
18 |
if ($MaxColumns < $columns) |
|
855
|
0 |
18 |
if $LOGGING |
|
864
|
0 |
14 |
defined $ENV{'Select_POSIX_Shell_Prompt'} ? : |
|
|
4 |
14 |
defined $Prompt && $Prompt ne '' ? : |
|
867
|
0 |
0 |
if $DEBUG > 3 and $LOGGING |
|
874
|
18 |
0 |
defined $heading ? : |
|
879
|
0 |
35 |
unless $j % $columns |
|
893
|
0 |
0 |
if ($LOGGING == 1) { } |
|
|
0 |
0 |
elsif ($LOGGING > 1) { } |
|
904
|
0 |
0 |
if $DEBUG > 1 and $LOGGING > 0 |
|
905
|
0 |
0 |
unless open LOG, ">", catfile($dir, "SELECT_log") |
|
906
|
0 |
0 |
unless open SOURCE, ">", catfile($dir, "SELECT_source") |
|
907
|
0 |
0 |
unless open USERPROG, ">", catfile($dir, "SELECT_user_program") |
|
908
|
0 |
0 |
unless open PART1, ">", catfile($dir, "SELECT_part1") |
|
909
|
0 |
0 |
unless open PART2, ">", catfile($dir, "SELECT_part2") |
|
910
|
0 |
0 |
unless open PART3, ">", catfile($dir, "SELECT_part3") |
|
911
|
0 |
0 |
unless open PART4, ">", catfile($dir, "SELECT_part4") |
|
913
|
0 |
0 |
if $DEBUG > 1 and $LOGGING > 0 |
|
916
|
0 |
0 |
if $DEBUG > 0 |
|
919
|
0 |
0 |
if $DEBUG > 0 |
|
925
|
0 |
320 |
if (not defined $callers_name) { } |
|
937
|
27 |
0 |
$PRODUCTION ? : |
|
942
|
0 |
0 |
if $DEBUG |
|
943
|
0 |
0 |
$PRODUCTION ? : |
|
1227
|
1 |
26 |
if ($num_options) |
|
1240
|
0 |
1 |
if ($num_options > keys %options2) |
|
1257
|
0 |
0 |
unless @_ >= 1 |
|
1272
|
74 |
6 |
if (/\G\s+/g) { } |
|
1273
|
0 |
74 |
if $DEBUG_FILT > 1 |
|
1277
|
0 |
6 |
if $DEBUG_FILT > 1 |
|
1291
|
0 |
27 |
unless ($flag) |
|
1292
|
0 |
0 |
if (is_unix() and defined $ENV{'TERM'} and not system('tput -V >/dev/null 2>&1')) { } |
|
1297
|
0 |
0 |
if defined $COLS |
|
1298
|
0 |
0 |
if ($flag ne "make") |
|
1307
|
0 |
0 |
if $DEBUG > 2 |
|
1314
|
26 |
0 |
if ($dump_data) { } |
|
1315
|
0 |
26 |
if ($ENV{'Shell_POSIX_Select_reference'}) { } |
|
1322
|
0 |
26 |
unless (open SOURCE, "> $cdump") |
|
1323
|
0 |
0 |
if $_TTY and print TTY "$PKG-END(): Failed to open '${cdump}' for writing, $!\n" |
|
1328
|
26 |
0 |
if defined $filter_output |
|
1339
|
0 |
0 |
if defined $SGR0 and $SGR0 ne "" |
|
1340
|
0 |
0 |
if $DEBUG > 1 and $LOGGING |
|
1347
|
0 |
0 |
if ($^O =~ /^(MacOS|MSWin32|os2|VMS|epoc|NetWare|dos|cygwin)$/xi) { } |
|
1352
|
0 |
0 |
if $DEBUG > 2 |
|
1356
|
0 |
0 |
if $DEBUG > 2 |
|
1359
|
0 |
0 |
defined $1 ? : |