| line |
true |
false |
branch |
|
4
|
0 |
1 |
if (my($sub_version) = $] =~ /^5.010(.*)/ || $] =~ /^5.011(.*)/ || $] =~ /^5.009005/) { } |
|
30
|
0 |
0 |
if ($ENV{'PERL5DB_THREADED'}) |
|
36
|
0 |
0 |
if ($single and not $second_time++) |
|
39
|
0 |
0 |
if ($runnonstop) { } |
|
|
0 |
0 |
elsif ($ImmediateStop) { } |
|
65
|
0 |
0 |
if $single or $signal |
|
90
|
0 |
0 |
if ($^O eq 'MacOS' and $#dbline < 0) |
|
99
|
0 |
0 |
if ($dbline{$line} and ($stop, $action) = split(/\0/, $dbline{$line}, 3)) |
|
104
|
0 |
0 |
if ($stop eq '1') { } |
|
|
0 |
0 |
elsif ($stop) { } |
|
122
|
0 |
0 |
if ($trace & 2) |
|
130
|
0 |
0 |
defined $val ? : |
|
133
|
0 |
0 |
if ($val ne $old_watch[$n]) |
|
150
|
0 |
0 |
if ($trace & 4) |
|
152
|
0 |
0 |
if watchfunction($package, $filename, $line) and not $single and not $was_signal and not $trace & 18446744073709551611 |
|
165
|
0 |
0 |
if ($single or $trace & 1 or $was_signal) |
|
168
|
0 |
0 |
if ($slave_editor) { } |
|
|
0 |
0 |
elsif ($package eq 'DB::fake') { } |
|
178
|
0 |
0 |
unless $term |
|
200
|
0 |
0 |
$sub =~ /::/ ? : |
|
202
|
0 |
0 |
$dbline[$line] =~ /\n$/ ? : |
|
205
|
0 |
0 |
if (length $prefix > 30) { } |
|
216
|
0 |
0 |
if ($frame) { } |
|
230
|
0 |
0 |
if $dbline[$i] =~ /^\s*[\;\}\#\n]/ |
|
233
|
0 |
0 |
if $signal |
|
237
|
0 |
0 |
$dbline[$i] =~ /\n$/ ? : |
|
242
|
0 |
0 |
if ($frame) { } |
|
256
|
0 |
0 |
if $action |
|
260
|
0 |
0 |
if ($single or $was_signal) |
|
271
|
0 |
0 |
if $single & 4 |
|
318
|
0 |
0 |
if ($cmd =~ s/\\$/\n/) |
|
324
|
0 |
0 |
if $cmd =~ /^$/ |
|
326
|
0 |
0 |
if length $cmd > 1 |
|
340
|
0 |
0 |
if ($alias{$i}) |
|
352
|
0 |
0 |
if ($@) |
|
365
|
0 |
0 |
unless $cmd =~ /^$do\s*/ |
|
366
|
0 |
0 |
if $commands{$do}($cmd) |
|
370
|
0 |
0 |
if ($cmd =~ /^q$/) |
|
376
|
0 |
0 |
if ($cmd =~ /^t$/) |
|
379
|
0 |
0 |
$trace & 1 ? : |
|
384
|
0 |
0 |
if ($cmd =~ /^S(\s+(!)?(.+))?$/) |
|
399
|
0 |
0 |
if ($Snocheck or $Srev ^ $subname =~ /$Spatt/) |
|
410
|
0 |
0 |
if ($cmd =~ /^V$/) |
|
415
|
0 |
0 |
if ($cmd =~ /^V\b\s*(\S+)\s*(.*)/) |
|
427
|
0 |
0 |
unless defined &main::dumpvar |
|
428
|
0 |
0 |
if (defined &main::dumpvar) { } |
|
438
|
0 |
0 |
defined $option{'dumpDepth'} ? : |
|
449
|
0 |
0 |
if ($@) |
|
450
|
0 |
0 |
unless $@ =~ /dumpvar print failed/ |
|
464
|
0 |
0 |
if ($cmd =~ s/^x\b/ /) |
|
469
|
0 |
0 |
if ($cmd =~ s/^\s*(\d+)(?=\s)/ /) |
|
474
|
0 |
0 |
if ($cmd =~ s/^m\s+([\w:]+)\s*$/ /) |
|
480
|
0 |
0 |
if ($cmd =~ s/^m\b/ /) |
|
484
|
0 |
0 |
if ($cmd =~ /^f\b\s*(.*)/) |
|
489
|
0 |
0 |
unless ($file) |
|
497
|
0 |
0 |
unless (defined $main::main::{'_<' . $file}) |
|
498
|
0 |
0 |
if (($try) = grep(/^_<.*$file/, keys %main::main::)) |
|
508
|
0 |
0 |
if (not defined $main::main::{'_<' . $file}) { } |
|
|
0 |
0 |
elsif ($file ne $filename) { } |
|
530
|
0 |
0 |
if ($cmd =~ /^\.$/) |
|
545
|
0 |
0 |
if ($cmd =~ /^-$/) |
|
549
|
0 |
0 |
if $start <= 0 |
|
558
|
0 |
0 |
if ($cmd =~ /^([aAbBeEhilLMoOPvwW]\b|[<>\{]{1,2})\s*(.*)/so) |
|
563
|
0 |
0 |
if ($cmd =~ /^y(?:\s+(\d*)\s*(.*))?$/) |
|
566
|
0 |
0 |
$@ =~ /locate/ ? : |
|
|
0 |
0 |
unless eval {
do {
require PadWalker;
'PadWalker'->VERSION(0.08)
}
} |
|
575
|
0 |
0 |
unless defined &main::dumpvar |
|
576
|
0 |
0 |
unless defined &main::dumpvar |
|
587
|
0 |
0 |
if $@ |
|
596
|
0 |
0 |
defined $option{'dumpDepth'} ? : |
|
602
|
0 |
0 |
if ($cmd =~ /^n$/) |
|
603
|
0 |
0 |
if $finished and $level <= 1 |
|
614
|
0 |
0 |
if ($cmd =~ /^s$/) |
|
618
|
0 |
0 |
if $finished and $level <= 1 |
|
630
|
0 |
0 |
if ($cmd =~ /^c\b\s*([\w:]*)\s*$/) |
|
634
|
0 |
0 |
if $finished and $level <= 1 |
|
650
|
0 |
0 |
if ($subname =~ /\D/) |
|
653
|
0 |
0 |
unless $subname =~ /::/ |
|
666
|
0 |
0 |
if ($i) { } |
|
710
|
0 |
0 |
if ($i) |
|
713
|
0 |
0 |
if ($dbline[$i] == 0) |
|
730
|
0 |
0 |
if ($cmd =~ /^r$/) |
|
733
|
0 |
0 |
if $finished and $level <= 1 |
|
739
|
0 |
0 |
$option{'PrintRet'} ? : |
|
743
|
0 |
0 |
if ($cmd =~ /^T$/) |
|
748
|
0 |
0 |
if ($cmd =~ /^w\b\s*(.*)/s) |
|
750
|
0 |
0 |
if ($cmd =~ /^W\b\s*(.*)/s) |
|
752
|
0 |
0 |
if ($cmd =~ m[^/(.*)$]) |
|
761
|
0 |
0 |
if ($inpat ne '') |
|
769
|
0 |
0 |
if ($@ ne '') |
|
818
|
0 |
0 |
if $start == $end |
|
823
|
0 |
0 |
if ($cmd =~ /^\?(.*)$/) |
|
830
|
0 |
0 |
if ($inpat ne '') |
|
837
|
0 |
0 |
if ($@ ne '') |
|
883
|
0 |
0 |
if $start == $end |
|
888
|
0 |
0 |
if ($cmd =~ /^$rc+\s*(-)?(\d+)?$/) |
|
891
|
0 |
0 |
if length $cmd > 1 |
|
897
|
0 |
0 |
$1 ? : |
|
910
|
0 |
0 |
if ($cmd =~ /^$sh$sh\s*([\x00-\xff]*)/) |
|
918
|
0 |
0 |
if ($cmd =~ /^$rc([^$rc].*)$/) |
|
924
|
0 |
0 |
if length $cmd > 1 |
|
930
|
0 |
0 |
if $hist[$i] =~ /$pat/ |
|
933
|
0 |
0 |
unless ($i) |
|
947
|
0 |
0 |
if ($cmd =~ /^$sh$/) |
|
956
|
0 |
0 |
if ($cmd =~ /^$sh\s*([\x00-\xff]*)/) |
|
966
|
0 |
0 |
if ($cmd =~ /^H\b\s*\*/) |
|
972
|
0 |
0 |
if ($cmd =~ /^H\b\s*(-(\d+))?/) |
|
976
|
0 |
0 |
$2 ? : |
|
979
|
0 |
0 |
if $hist < 0 |
|
987
|
0 |
0 |
unless $hist[$i] =~ /^.?$/ |
|
994
|
0 |
0 |
if ($cmd =~ /^(?:man|(?:perl)?doc)\b(?:\s+([^(]*))?$/) |
|
1006
|
0 |
0 |
if ($cmd =~ s/^=\s*//) |
|
1008
|
0 |
0 |
if (length $cmd == 0) { } |
|
|
0 |
0 |
elsif (my($k, $v) = $cmd =~ /^(\S+)\s+(\S.*)/) { } |
|
1035
|
0 |
0 |
unless (eval "sub { s\a$k\a$v\a }; 1") |
|
1058
|
0 |
0 |
if ((my $v = $alias{$k}) =~ s/s\a$k\a(.*)\a$/1/) { } |
|
|
0 |
0 |
elsif (defined $alias{$k}) { } |
|
1078
|
0 |
0 |
if ($cmd =~ /^source\s+(.*\S)/) |
|
1079
|
0 |
0 |
if (open my $fh, $1) { } |
|
1093
|
0 |
0 |
if ($cmd =~ /^save\s*(.*)$/) |
|
1095
|
0 |
0 |
if (open my $fh, "> $file") { } |
|
1098
|
0 |
0 |
/^\s*(save|source)/ ? : |
|
1112
|
0 |
0 |
if ($cmd =~ /^(R|rerun\s*(.*))$/) |
|
1113
|
0 |
0 |
$1 eq 'R' ? : |
|
1122
|
0 |
0 |
if (eval {
do {
require POSIX
}
}) |
|
1126
|
0 |
0 |
if (defined $max_fd) |
|
1128
|
0 |
0 |
unless open FD_TO_CLOSE, "<&=$_" |
|
1135
|
0 |
0 |
unless exec @args |
|
1141
|
0 |
0 |
if ($cmd =~ /^\|\|?\s*[^|]/) |
|
1142
|
0 |
0 |
if ($pager =~ /^\|/) { } |
|
1145
|
0 |
0 |
unless open SAVEOUT, '>&STDOUT' |
|
1147
|
0 |
0 |
unless open STDOUT, '>&OUT' |
|
1153
|
0 |
0 |
unless open SAVEOUT, '>&OUT' |
|
1159
|
0 |
0 |
unless ($piped = open(OUT, $pager)) |
|
1163
|
0 |
0 |
if ($pager =~ /^\|/) { } |
|
1166
|
0 |
0 |
unless open OUT, '>&STDOUT' |
|
1168
|
0 |
0 |
unless open STDOUT, '>&SAVEOUT' |
|
1175
|
0 |
0 |
unless open OUT, '>&STDOUT' |
|
1182
|
0 |
0 |
if $pager =~ /^\|/ and '' eq $SIG{'PIPE'} || 'DEFAULT' eq $SIG{'PIPE'} |
|
1191
|
0 |
0 |
unless $cmd =~ /^\|\|/ |
|
1202
|
0 |
0 |
if ($cmd =~ s/^s\s/\$DB::single = 1;\n/) |
|
1206
|
0 |
0 |
if ($cmd =~ s/^n\s/\$DB::single = 2;\n/) |
|
1218
|
0 |
0 |
if ($onetimeDump) { } |
|
|
0 |
0 |
elsif ($term_pid == $$) { } |
|
1236
|
0 |
0 |
if ($piped) |
|
1239
|
0 |
0 |
if ($pager =~ /^\|/) { } |
|
1245
|
0 |
0 |
unless close OUT |
|
1249
|
0 |
0 |
if ($?) |
|
1251
|
0 |
0 |
if ($? == -1) { } |
|
|
0 |
0 |
elsif ($? >> 8) { } |
|
1255
|
0 |
0 |
$? & 127 ? : |
|
|
0 |
0 |
$? & 128 ? : |
|
1266
|
0 |
0 |
unless open OUT, '>&STDOUT' |
|
1267
|
0 |
0 |
unless open STDOUT, '>&SAVEOUT' |
|
1271
|
0 |
0 |
if $SIG{'PIPE'} eq \&catch |
|
1279
|
0 |
0 |
unless open OUT, '>&SAVEOUT' |
|
1285
|
0 |
0 |
unless $selected eq '' |
|
1293
|
0 |
0 |
unless defined $cmd |