| line |
true |
false |
branch |
|
4
|
0 |
1 |
if ($] =~ /^5.006/) { } |
|
22
|
0 |
0 |
if ($single and not $second_time++) |
|
23
|
0 |
0 |
if ($runnonstop) { } |
|
|
0 |
0 |
elsif ($ImmediateStop) { } |
|
34
|
0 |
0 |
if $single or $signal |
|
42
|
0 |
0 |
if (($stop, $action) = split(/\0/, $dbline{$line}, 3)) |
|
43
|
0 |
0 |
if ($stop eq '1') { } |
|
|
0 |
0 |
elsif ($stop) { } |
|
51
|
0 |
0 |
if ($trace & 2) |
|
56
|
0 |
0 |
defined $val ? : |
|
57
|
0 |
0 |
if ($val ne $old_watch[$n]) |
|
68
|
0 |
0 |
if ($trace & 4) |
|
69
|
0 |
0 |
if watchfunction($package, $filename, $line) and not $single and not $was_signal and not $trace & 18446744073709551611 |
|
74
|
0 |
0 |
if ($single or $trace & 1 or $was_signal) |
|
75
|
0 |
0 |
if ($slave_editor) { } |
|
|
0 |
0 |
elsif ($package eq 'DB::fake') { } |
|
79
|
0 |
0 |
unless $term |
|
90
|
0 |
0 |
$sub =~ /::/ ? : |
|
92
|
0 |
0 |
$dbline[$line] =~ /\n$/ ? : |
|
93
|
0 |
0 |
if (length $prefix > 30) { } |
|
101
|
0 |
0 |
if ($frame) { } |
|
107
|
0 |
0 |
if $dbline[$i] =~ /^\s*[\;\}\#\n]/ |
|
108
|
0 |
0 |
if $signal |
|
109
|
0 |
0 |
$dbline[$i] =~ /\n$/ ? : |
|
112
|
0 |
0 |
if ($frame) { } |
|
120
|
0 |
0 |
if $action |
|
121
|
0 |
0 |
if ($single or $was_signal) |
|
126
|
0 |
0 |
if $single & 4 |
|
140
|
0 |
0 |
if ($cmd =~ s/\\$/\n/) |
|
144
|
0 |
0 |
if $cmd =~ /^$/ |
|
145
|
0 |
0 |
if length $cmd > 1 |
|
150
|
0 |
0 |
if ($alias{$i}) |
|
155
|
0 |
0 |
if ($@) |
|
167
|
0 |
0 |
unless $cmd =~ /^$do\s*/ |
|
168
|
0 |
0 |
if $commands{$do}($cmd) |
|
172
|
0 |
0 |
if $cmd =~ /^q$/ and $fall_off_end = 1 |
|
173
|
0 |
0 |
if ($cmd =~ /^h$/) |
|
176
|
0 |
0 |
if ($cmd =~ /^h\s+h$/) |
|
181
|
0 |
0 |
if ($cmd =~ /^h\s+(\S.*)$/) |
|
185
|
0 |
0 |
if ($help =~ /^
|
|
193
|
0 |
0 |
if ($cmd =~ /^t$/) |
|
195
|
0 |
0 |
$trace & 1 ? : |
|
198
|
0 |
0 |
if ($cmd =~ /^S(\s+(!)?(.+))?$/) |
|
201
|
0 |
0 |
if ($Snocheck or $Srev ^ $subname =~ /$Spatt/) |
|
206
|
0 |
0 |
if ($cmd =~ /^v$/) |
|
209
|
0 |
0 |
if ($cmd =~ /^V$/) |
|
211
|
0 |
0 |
if ($cmd =~ /^V\b\s*(\S+)\s*(.*)/) |
|
215
|
0 |
0 |
unless defined &main::dumpvar |
|
216
|
0 |
0 |
if (defined &main::dumpvar) { } |
|
221
|
0 |
0 |
if ($@) |
|
222
|
0 |
0 |
unless $@ =~ /dumpvar print failed/ |
|
229
|
0 |
0 |
if ($cmd =~ s/^x\b/ /) |
|
231
|
0 |
0 |
if ($cmd =~ s/^m\s+([\w:]+)\s*$/ /) |
|
233
|
0 |
0 |
if ($cmd =~ s/^m\b/ /) |
|
235
|
0 |
0 |
if ($cmd =~ /^f\b\s*(.*)/) |
|
238
|
0 |
0 |
unless ($file) |
|
243
|
0 |
0 |
unless (defined $main::main::{'_<' . $file}) |
|
244
|
0 |
0 |
if (($try) = grep(/^_<.*$file/, keys %main::main::)) |
|
250
|
0 |
0 |
if (not defined $main::main::{'_<' . $file}) { } |
|
|
0 |
0 |
elsif ($file ne $filename) { } |
|
265
|
0 |
0 |
if ($cmd =~ /^([lb])\b\s*(\$.*)/s) |
|
268
|
0 |
0 |
if $@ |
|
273
|
0 |
0 |
if ($cmd =~ /^l\b\s*([\':A-Za-z_][\':\w]*(\[.*\])?)/s) |
|
276
|
0 |
0 |
unless $subname =~ /::/ |
|
278
|
0 |
0 |
if substr($subname, 0, 2) eq '::' |
|
282
|
0 |
0 |
if ($file ne $filename) |
|
283
|
0 |
0 |
unless $slave_editor |
|
289
|
0 |
0 |
if ($subrange) { } |
|
290
|
0 |
0 |
if (eval $subrange < -$window) |
|
298
|
0 |
0 |
if ($cmd =~ /^\.$/) |
|
306
|
0 |
0 |
if ($cmd =~ /^w\b\s*(\d*)$/) |
|
308
|
0 |
0 |
if $1 |
|
312
|
0 |
0 |
if ($cmd =~ /^-$/) |
|
314
|
0 |
0 |
if $start <= 0 |
|
317
|
0 |
0 |
if ($cmd =~ /^l$/) |
|
320
|
0 |
0 |
if ($cmd =~ /^l\b\s*(\d*)\+(\d*)$/) |
|
321
|
0 |
0 |
if $1 |
|
323
|
0 |
0 |
unless $incr |
|
325
|
0 |
0 |
if ($cmd =~ /^l\b\s*((-?[\d\$\.]+)([-,]([\d\$\.]+))?)?/) |
|
326
|
0 |
0 |
$4 ? : |
|
|
0 |
0 |
!defined($2) ? : |
|
327
|
0 |
0 |
if $end > $max |
|
329
|
0 |
0 |
if $i eq '.' |
|
330
|
0 |
0 |
if $i < 1 |
|
332
|
0 |
0 |
if ($slave_editor) { } |
|
338
|
0 |
0 |
$dbline[$i] + 0 ? : |
|
|
0 |
0 |
$i == $line && $filename eq $filename_ini ? : |
|
342
|
0 |
0 |
if $stop |
|
343
|
0 |
0 |
if $action |
|
345
|
0 |
0 |
if $signal |
|
347
|
0 |
0 |
unless $dbline[$i - 1] =~ /\n$/ |
|
350
|
0 |
0 |
if $start > $max |
|
352
|
0 |
0 |
if ($cmd =~ /^D$/) |
|
361
|
0 |
0 |
if (defined $dbline{$i}) |
|
363
|
0 |
0 |
if ($dbline{$i} =~ s/^\0?$//) |
|
369
|
0 |
0 |
unless ($had_breakpoints{$file} &= 18446744073709551614) |
|
377
|
0 |
0 |
if ($cmd =~ /^L$/) |
|
385
|
0 |
0 |
if (defined $dbline{$i}) |
|
386
|
0 |
0 |
unless $was++ |
|
389
|
0 |
0 |
if $stop |
|
391
|
0 |
0 |
if $action |
|
393
|
0 |
0 |
if $signal |
|
397
|
0 |
0 |
if (%postponed) |
|
402
|
0 |
0 |
if $signal |
|
408
|
0 |
0 |
if (@have) |
|
417
|
0 |
0 |
if $stop |
|
419
|
0 |
0 |
if $action |
|
421
|
0 |
0 |
if $signal |
|
423
|
0 |
0 |
if $signal |
|
426
|
0 |
0 |
if (%break_on_load) |
|
431
|
0 |
0 |
if $signal |
|
434
|
0 |
0 |
if ($trace & 2) |
|
439
|
0 |
0 |
if $signal |
|
443
|
0 |
0 |
if ($cmd =~ /^b\b\s*load\b\s*(.*)/) |
|
447
|
0 |
0 |
if $INC{$file} |
|
448
|
0 |
0 |
unless $file =~ /\./ |
|
453
|
0 |
0 |
if ($cmd =~ /^b\b\s*(postpone|compile)\b\s*([':A-Za-z_][':\w]*)\s*(.*)/) |
|
454
|
0 |
0 |
length $3 ? : |
|
457
|
0 |
0 |
unless $subname =~ /::/ |
|
459
|
0 |
0 |
if substr($subname, 0, 2) eq '::' |
|
460
|
0 |
0 |
$break ? : |
|
463
|
0 |
0 |
if ($cmd =~ /^b\b\s*([':A-Za-z_][':\w]*(?:\[.*\])?)\s*(.*)/) |
|
465
|
0 |
0 |
length $2 ? : |
|
467
|
0 |
0 |
unless $subname =~ /::/ |
|
469
|
0 |
0 |
if substr($subname, 0, 2) eq '::' |
|
473
|
0 |
0 |
if ($i) { } |
|
484
|
0 |
0 |
if ($cmd =~ /^b\b\s*(\d*)\s*(.*)/) |
|
486
|
0 |
0 |
length $2 ? : |
|
487
|
0 |
0 |
if ($dbline[$i] == 0) { } |
|
494
|
0 |
0 |
if ($cmd =~ /^d\b\s*(\d*)/) |
|
496
|
0 |
0 |
if ($dbline[$i] == 0) { } |
|
500
|
0 |
0 |
if $dbline{$i} eq '' |
|
503
|
0 |
0 |
if ($cmd =~ /^A$/) |
|
512
|
0 |
0 |
if (defined $dbline{$i}) |
|
514
|
0 |
0 |
if $dbline{$i} eq '' |
|
518
|
0 |
0 |
unless ($had_breakpoints{$file} &= 18446744073709551613) |
|
523
|
0 |
0 |
if ($cmd =~ /^O\s*$/) |
|
528
|
0 |
0 |
if ($cmd =~ /^O\s*(\S.*)/) |
|
531
|
0 |
0 |
if ($cmd =~ /^\<\<\s*(.*)/) |
|
534
|
0 |
0 |
if ($cmd =~ /^>>\s*(.*)/) |
|
537
|
0 |
0 |
if ($cmd =~ /^<\s*(.*)/) |
|
538
|
0 |
0 |
unless ($1) |
|
543
|
0 |
0 |
if ($1 eq '?') |
|
544
|
0 |
0 |
unless (@$pre) |
|
556
|
0 |
0 |
if ($cmd =~ /^>\s*(.*)/) |
|
557
|
0 |
0 |
unless ($1) |
|
562
|
0 |
0 |
if ($1 eq '?') |
|
563
|
0 |
0 |
unless (@$post) |
|
575
|
0 |
0 |
if ($cmd =~ /^\{\{\s*(.*)/) |
|
576
|
0 |
0 |
if ($cmd =~ /^\{.*\}$/ and unbalanced(substr($cmd, 2))) |
|
584
|
0 |
0 |
if ($cmd =~ /^\{\s*(.*)/) |
|
585
|
0 |
0 |
unless ($1) |
|
590
|
0 |
0 |
if ($1 eq '?') |
|
591
|
0 |
0 |
unless (@$pretype) |
|
601
|
0 |
0 |
if ($cmd =~ /^\{.*\}$/ and unbalanced(substr($cmd, 1))) |
|
609
|
0 |
0 |
if ($cmd =~ /^a\b\s*(\d*)\s*(.*)/) |
|
611
|
0 |
0 |
if (length $j) { } |
|
612
|
0 |
0 |
if ($dbline[$i] == 0) { } |
|
621
|
0 |
0 |
if $dbline{$i} eq '' |
|
624
|
0 |
0 |
if ($cmd =~ /^n$/) |
|
625
|
0 |
0 |
if $finished and $level <= 1 |
|
629
|
0 |
0 |
if ($cmd =~ /^s$/) |
|
630
|
0 |
0 |
if $finished and $level <= 1 |
|
634
|
0 |
0 |
if ($cmd =~ /^c\b\s*([\w:]*)\s*$/) |
|
635
|
0 |
0 |
if $finished and $level <= 1 |
|
641
|
0 |
0 |
if ($i =~ /\D/) |
|
642
|
0 |
0 |
unless $subname =~ /::/ |
|
646
|
0 |
0 |
if ($i) { } |
|
657
|
0 |
0 |
if ($i) |
|
658
|
0 |
0 |
if ($dbline[$i] == 0) |
|
668
|
0 |
0 |
if ($cmd =~ /^r$/) |
|
669
|
0 |
0 |
if $finished and $level <= 1 |
|
671
|
0 |
0 |
$option{'PrintRet'} ? : |
|
673
|
0 |
0 |
if ($cmd =~ /^R$/) |
|
676
|
0 |
0 |
if $ini_warn |
|
684
|
0 |
0 |
if ($0 eq '-e') { } |
|
692
|
0 |
0 |
$term->Features->{'getHistory'} ? : |
|
703
|
0 |
0 |
unless %dbline or $postponed_file{$file} |
|
704
|
0 |
0 |
if $file =~ /^\(eval \d+\)$/ |
|
707
|
0 |
0 |
if $postponed_file{$file} |
|
716
|
0 |
0 |
unless $sub{$sub} =~ /^$quoted:(\d+)-(\d+)$/ |
|
719
|
0 |
0 |
unless (%subs) |
|
728
|
0 |
0 |
if ($subs{$sub}[1] >= $line and !defined($offset) || $offset < 0) |
|
733
|
0 |
0 |
if $offset >= 0 |
|
736
|
0 |
0 |
if (defined $offset) { } |
|
751
|
0 |
0 |
$slave_editor ? : |
|
754
|
0 |
0 |
if ($cmd =~ /^T$/) |
|
757
|
0 |
0 |
if ($cmd =~ /^W\s*$/) |
|
761
|
0 |
0 |
if ($cmd =~ /^W\b\s*(.*)/s) |
|
765
|
0 |
0 |
defined $val ? : |
|
769
|
0 |
0 |
if ($cmd =~ m[^/(.*)$]) |
|
772
|
0 |
0 |
if ($inpat ne '') |
|
777
|
0 |
0 |
if ($@ ne '') |
|
799
|
0 |
0 |
if $start == $end |
|
801
|
0 |
0 |
if ($cmd =~ /^\?(.*)$/) |
|
804
|
0 |
0 |
if ($inpat ne '') |
|
809
|
0 |
0 |
if ($@ ne '') |
|
831
|
0 |
0 |
if $start == $end |
|
833
|
0 |
0 |
if ($cmd =~ /^$rc+\s*(-)?(\d+)?$/) |
|
834
|
0 |
0 |
if length $cmd > 1 |
|
835
|
0 |
0 |
$1 ? : |
|
839
|
0 |
0 |
if ($cmd =~ /^$sh$sh\s*([\x00-\xff]*)/) |
|
842
|
0 |
0 |
if ($cmd =~ /^$rc([^$rc].*)$/) |
|
844
|
0 |
0 |
if length $cmd > 1 |
|
846
|
0 |
0 |
if $hist[$i] =~ /$pat/ |
|
848
|
0 |
0 |
unless ($i) |
|
855
|
0 |
0 |
if ($cmd =~ /^$sh$/) |
|
858
|
0 |
0 |
if ($cmd =~ /^$sh\s*([\x00-\xff]*)/) |
|
863
|
0 |
0 |
if ($cmd =~ /^H\b\s*(-(\d+))?/) |
|
864
|
0 |
0 |
$2 ? : |
|
865
|
0 |
0 |
if $hist < 0 |
|
867
|
0 |
0 |
unless $hist[$i] =~ /^.?$/ |
|
871
|
0 |
0 |
if ($cmd =~ /^(?:man|(?:perl)?doc)\b(?:\s+([^(]*))?$/) |
|
876
|
0 |
0 |
if ($cmd =~ s/^=\s*//) |
|
878
|
0 |
0 |
if (length $cmd == 0) { } |
|
|
0 |
0 |
elsif (my($k, $v) = $cmd =~ /^(\S+)\s+(\S.*)/) { } |
|
888
|
0 |
0 |
unless (eval "sub { s\a$k\a$v\a }; 1") |
|
899
|
0 |
0 |
if ((my $v = $alias{$k}) =~ s/s\a$k\a(.*)\a$/1/) { } |
|
|
0 |
0 |
elsif (defined $alias{$k}) { } |
|
910
|
0 |
0 |
if ($cmd =~ /^\|\|?\s*[^|]/) |
|
911
|
0 |
0 |
if ($pager =~ /^\|/) { } |
|
912
|
0 |
0 |
unless open SAVEOUT, '>&STDOUT' |
|
913
|
0 |
0 |
unless open STDOUT, '>&OUT' |
|
915
|
0 |
0 |
unless open SAVEOUT, '>&OUT' |
|
918
|
0 |
0 |
unless ($piped = open(OUT, $pager)) |
|
920
|
0 |
0 |
if ($pager =~ /^\|/) { } |
|
921
|
0 |
0 |
unless open OUT, '>&STDOUT' |
|
923
|
0 |
0 |
unless open STDOUT, '>&SAVEOUT' |
|
927
|
0 |
0 |
unless open OUT, '>&STDOUT' |
|
932
|
0 |
0 |
if $pager =~ /^\|/ and '' eq $SIG{'PIPE'} || 'DEFAULT' eq $SIG{'PIPE'} |
|
936
|
0 |
0 |
unless $cmd =~ /^\|\|/ |
|
942
|
0 |
0 |
if ($cmd =~ s/^s\s/\$DB::single = 1;\n/) |
|
943
|
0 |
0 |
if ($cmd =~ s/^n\s/\$DB::single = 2;\n/) |
|
946
|
0 |
0 |
if ($onetimeDump) { } |
|
|
0 |
0 |
elsif ($term_pid == $$) { } |
|
952
|
0 |
0 |
if ($piped) |
|
953
|
0 |
0 |
if ($pager =~ /^\|/) { } |
|
956
|
0 |
0 |
unless close OUT |
|
959
|
0 |
0 |
if ($?) |
|
961
|
0 |
0 |
if ($? == -1) { } |
|
|
0 |
0 |
elsif ($? >> 8) { } |
|
964
|
0 |
0 |
$? & 127 ? : |
|
|
0 |
0 |
$? & 128 ? : |
|
972
|
0 |
0 |
unless open OUT, '>&STDOUT' |
|
973
|
0 |
0 |
unless open STDOUT, '>&SAVEOUT' |
|
974
|
0 |
0 |
if $SIG{'PIPE'} eq \&catch |
|
978
|
0 |
0 |
unless open OUT, '>&SAVEOUT' |
|
981
|
0 |
0 |
unless $selected eq '' |
|
985
|
0 |
0 |
unless defined $cmd |