| line |
true |
false |
branch |
|
34
|
0 |
0 |
if $DEBUG |
|
36
|
0 |
0 |
if (defined $ON and $ON ne '') |
|
37
|
0 |
0 |
if defined $reset |
|
39
|
0 |
0 |
if $DEBUG |
|
42
|
19 |
0 |
unless defined $_import_called |
|
188
|
0 |
19 |
if $orig_string ne $_ |
|
196
|
0 |
19 |
if ($last_call = $_ eq '') { } |
|
202
|
0 |
19 |
if $orig_string ne $_ |
|
205
|
0 |
19 |
if $DEBUG > 1 |
|
206
|
0 |
0 |
if $DEBUG > 1 and $LOGGING |
|
209
|
0 |
19 |
if $DEBUG > 1 |
|
213
|
19 |
25 |
if $loopnum == 2 |
|
215
|
0 |
44 |
if $DEBUG > 1 |
|
216
|
0 |
44 |
if $loopnum > 5 |
|
217
|
0 |
44 |
if $loopnum > 10 |
|
218
|
0 |
44 |
if $DEBUG > 3 |
|
220
|
0 |
44 |
unless /\S/ |
|
226
|
0 |
44 |
if ($select2foreach) { } |
|
231
|
0 |
0 |
if s/\bselect\b/foreach /g |
|
243
|
0 |
44 |
if $DEBUG_FILT > 0 |
|
245
|
0 |
44 |
unless defined pos $_ |
|
254
|
25 |
19 |
if (/$RE/g) { } |
|
259
|
0 |
25 |
if $DEBUG_FILT > 1 |
|
268
|
11 |
14 |
if (/\G$RE_decl/g) { } |
|
277
|
0 |
25 |
if $DEBUG_FILT > 1 |
|
280
|
0 |
25 |
if $DEBUG_FILT > 0 |
|
283
|
0 |
25 |
if $DEBUG_FILT > 0 |
|
285
|
0 |
25 |
if $DEBUG_FILT > 0 |
|
287
|
16 |
9 |
if (defined $loop_var and $loop_var ne '') { } |
|
289
|
0 |
16 |
if $DEBUG_FILT > 0 |
|
294
|
0 |
9 |
if $DEBUG_FILT > 0 |
|
296
|
0 |
25 |
if $DEBUG_FILT > 1 |
|
302
|
25 |
0 |
if (defined $loop_list and $loop_list ne '') { } |
|
306
|
0 |
25 |
if $DEBUG_FILT > 1 |
|
312
|
0 |
0 |
if ($got_loop_var) { } |
|
313
|
0 |
0 |
if $DEBUG_FILT > 3 |
|
319
|
0 |
0 |
if $DEBUG_FILT > 3 |
|
322
|
0 |
0 |
if $DEBUG_FILT > 0 |
|
323
|
0 |
0 |
if (++$iteration < $maxloops) { } |
|
334
|
25 |
0 |
if (defined $loop_block and $loop_block ne '') { } |
|
338
|
0 |
25 |
if $DEBUG_FILT > 1 |
|
344
|
0 |
0 |
if ($got_loop_var) { } |
|
350
|
0 |
0 |
if $DEBUG_FILT > 3 |
|
354
|
0 |
0 |
if $DEBUG_FILT > 0 |
|
364
|
0 |
25 |
if ($matched == 0) { } |
|
371
|
0 |
25 |
if ($matched == 1) |
|
374
|
0 |
25 |
if ($matched == 2) { } |
|
|
25 |
0 |
elsif ($matched >= 3) { } |
|
376
|
0 |
0 |
unless $got_list |
|
377
|
0 |
0 |
unless $got_codeblock |
|
388
|
25 |
0 |
if ($matched > 1) |
|
390
|
0 |
25 |
if $DEBUG > 0 |
|
397
|
25 |
0 |
$matched >= 2 ? : |
|
400
|
25 |
0 |
if ($can_rewrite) |
|
414
|
0 |
25 |
if $DEBUG_FILT > 2 |
|
436
|
19 |
0 |
if $loopnum > 1 |
|
437
|
0 |
19 |
if $LOGGING |
|
438
|
0 |
19 |
if $DEBUG_FILT > 2 |
|
449
|
0 |
0 |
if defined $match |
|
451
|
0 |
0 |
if defined $pos |
|
461
|
0 |
0 |
if $DEBUG > 0 |
|
488
|
0 |
25 |
if ($U_DEBUG > 3) |
|
504
|
2 |
23 |
if (not defined $values or $values =~ /^\s*\(\s*\)\s*$/) |
|
515
|
11 |
14 |
if (defined $decl and $decl ne '' and defined $loop_var and $loop_var ne '') { } |
|
|
0 |
14 |
elsif (defined $decl and $decl ne '' and !defined($loop_var) || $loop_var eq '') { } |
|
|
5 |
9 |
elsif (defined $loop_var and $loop_var ne '' and !defined($decl) || $decl eq '') { } |
|
517
|
0 |
11 |
if $LOGGING |
|
523
|
0 |
0 |
if $LOGGING |
|
531
|
0 |
5 |
if $LOGGING |
|
535
|
0 |
9 |
if $LOGGING |
|
541
|
2 |
23 |
if (not defined $codeblock or $codeblock =~ /^\s*{\s*}\s*$/) |
|
554
|
25 |
0 |
if (not $default_loopvar || $loop_var =~ /^\$::\w+/) { } |
|
558
|
0 |
25 |
if $DEBUG > 1 |
|
560
|
0 |
25 |
if ($loop_var2 ne $loop_var) |
|
561
|
0 |
0 |
if $DEBUG > 1 and warn "${PKG}: extracted var diff from parsed var: ", $DEBUG > 0 |
|
572
|
5 |
20 |
unless defined $decl |
|
580
|
0 |
25 |
if defined $decl and $decl eq 'unset' |
|
593
|
0 |
25 |
unless (defined $values and $values ne '') |
|
594
|
0 |
0 |
if $DEBUG > 1 |
|
598
|
20 |
5 |
defined $decl && $decl ne '' ? : |
|
620
|
0 |
25 |
if $LOGGING |
|
621
|
0 |
25 |
if $DEBUG > 4 |
|
636
|
0 |
25 |
if $LOGGING |
|
638
|
0 |
25 |
if ($DEBUG > 4) |
|
645
|
0 |
0 |
unless defined $Shell::POSIX::Select::_autoprompt |
|
647
|
0 |
0 |
unless defined $codestring |
|
789
|
0 |
25 |
if $LOGGING |
|
797
|
0 |
25 |
if $LOGGING |
|
817
|
2 |
17 |
unless (@values) |
|
830
|
17 |
15 |
if ($l = length $values[$i]) > $v_length |
|
832
|
0 |
0 |
if $DEBUG > 3 and $LOGGING |
|
835
|
0 |
0 |
if $DEBUG > 3 and $LOGGING |
|
838
|
17 |
0 |
@values > 0 ? : |
|
|
0 |
17 |
@values >= 10 ? : |
|
|
0 |
17 |
@values >= 100 ? : |
|
|
0 |
17 |
@values >= 1000 ? : |
|
|
0 |
17 |
@values >= 10000 ? : |
|
845
|
0 |
0 |
if $DEBUG > 3 and $LOGGING |
|
847
|
0 |
17 |
unless (defined $l_length) |
|
859
|
0 |
17 |
if $columns < 1 |
|
862
|
0 |
17 |
if $LOGGING |
|
871
|
0 |
13 |
defined $ENV{'Select_POSIX_Shell_Prompt'} ? : |
|
|
4 |
13 |
defined $Prompt && $Prompt ne '' ? : |
|
874
|
0 |
0 |
if $DEBUG > 3 and $LOGGING |
|
881
|
17 |
0 |
defined $heading ? : |
|
886
|
0 |
32 |
unless $j % $columns |
|
900
|
0 |
0 |
if ($LOGGING == 1) { } |
|
|
0 |
0 |
elsif ($LOGGING > 1) { } |
|
912
|
0 |
0 |
if $DEBUG > 1 and $LOGGING > 0 |
|
913
|
0 |
0 |
unless open LOG, "> $dir${DIRSEP}SELECT_log" |
|
914
|
0 |
0 |
unless open SOURCE, "> $dir${DIRSEP}SELECT_source" |
|
915
|
0 |
0 |
unless open USERPROG, "> $dir${DIRSEP}SELECT_user_program" |
|
916
|
0 |
0 |
unless open PART1, "> $dir${DIRSEP}SELECT_part1" |
|
917
|
0 |
0 |
unless open PART2, "> $dir${DIRSEP}SELECT_part2" |
|
918
|
0 |
0 |
unless open PART3, "> $dir${DIRSEP}SELECT_part3" |
|
919
|
0 |
0 |
unless open PART4, "> $dir${DIRSEP}SELECT_part4" |
|
921
|
0 |
0 |
if $DEBUG > 1 and $LOGGING > 0 |
|
924
|
0 |
0 |
if $DEBUG > 0 |
|
927
|
0 |
0 |
if $DEBUG > 0 |
|
933
|
0 |
221 |
if (not defined $callers_name) { } |
|
945
|
19 |
0 |
$PRODUCTION ? : |
|
950
|
0 |
0 |
if $DEBUG |
|
951
|
0 |
0 |
$PRODUCTION ? : |
|
1231
|
1 |
18 |
if ($num_options) |
|
1244
|
0 |
1 |
if ($num_options > keys %options2) |
|
1261
|
0 |
0 |
unless @_ >= 1 |
|
1276
|
48 |
2 |
if (/\G\s+/g) { } |
|
1277
|
0 |
48 |
if $DEBUG_FILT > 1 |
|
1281
|
0 |
2 |
if $DEBUG_FILT > 1 |
|
1295
|
0 |
19 |
unless ($flag) |
|
1296
|
0 |
0 |
if (is_unix() and defined $ENV{'TERM'} and not system('tput -V >/dev/null 2>&1')) { } |
|
1301
|
0 |
0 |
if defined $COLS |
|
1302
|
0 |
0 |
if ($flag ne 'make') |
|
1311
|
0 |
0 |
if $DEBUG > 2 |
|
1318
|
19 |
0 |
if ($Shell::POSIX::Select::dump_data) { } |
|
1319
|
0 |
19 |
if ($ENV{'Shell_POSIX_Select_reference'}) { } |
|
1326
|
0 |
19 |
unless (open SOURCE, "> $cdump") |
|
1327
|
0 |
0 |
if $Shell::POSIX::Select::_TTY and print TTY "$PKG-END(): Failed to open '${cdump}' for writing, $!\n" |
|
1332
|
0 |
19 |
unless defined $Shell::POSIX::Select::filter_output and print SOURCE $Shell::POSIX::Select::filter_output |
|
1343
|
0 |
0 |
if defined $SGR0 and $SGR0 ne '' |
|
1344
|
0 |
0 |
if $DEBUG > 1 and $LOGGING |
|
1351
|
0 |
0 |
if ($^O =~ /^(MacOS|MSWin32|os2|VMS|epoc|NetWare|dos|cygwin)$/xi) { } |
|
1356
|
0 |
0 |
if $DEBUG > 2 |
|
1360
|
0 |
0 |
if $DEBUG > 2 |
|
1363
|
0 |
0 |
defined $1 ? : |