| line |
true |
false |
branch |
|
6
|
1 |
0 |
if ($] gt '5.008005' or $] gt '5.009001' and $] lt '5.009005') { } |
|
28
|
0 |
0 |
if ($ENV{'PERL5DB_THREADED'}) { } |
|
37
|
0 |
0 |
if ($single and not $second_time++) |
|
40
|
0 |
0 |
if ($runnonstop) { } |
|
|
0 |
0 |
elsif ($ImmediateStop) { } |
|
66
|
0 |
0 |
if $single or $signal |
|
91
|
0 |
0 |
if ($^O eq 'MacOS' and $#dbline < 0) |
|
100
|
0 |
0 |
if ($dbline{$line} and ($stop, $action) = split(/\0/, $dbline{$line}, 3)) |
|
105
|
0 |
0 |
if ($stop eq '1') { } |
|
|
0 |
0 |
elsif ($stop) { } |
|
123
|
0 |
0 |
if ($trace & 2) |
|
131
|
0 |
0 |
defined $val ? : |
|
134
|
0 |
0 |
if ($val ne $old_watch[$n]) |
|
151
|
0 |
0 |
if ($trace & 4) |
|
153
|
0 |
0 |
if watchfunction($package, $filename, $line) and not $single and not $was_signal and not $trace & 18446744073709551611 |
|
166
|
0 |
0 |
if ($single or $trace & 1 or $was_signal) |
|
169
|
0 |
0 |
if ($slave_editor) { } |
|
|
0 |
0 |
elsif ($package eq 'DB::fake') { } |
|
179
|
0 |
0 |
unless $term |
|
201
|
0 |
0 |
$sub =~ /::/ ? : |
|
203
|
0 |
0 |
$dbline[$line] =~ /\n$/ ? : |
|
206
|
0 |
0 |
if (length $prefix > 30) { } |
|
217
|
0 |
0 |
if ($frame) { } |
|
231
|
0 |
0 |
if $dbline[$i] =~ /^\s*[\;\}\#\n]/ |
|
234
|
0 |
0 |
if $signal |
|
238
|
0 |
0 |
$dbline[$i] =~ /\n$/ ? : |
|
243
|
0 |
0 |
if ($frame) { } |
|
257
|
0 |
0 |
if $action |
|
261
|
0 |
0 |
if ($single or $was_signal) |
|
272
|
0 |
0 |
if $single & 4 |
|
309
|
0 |
0 |
if defined \&share |
|
319
|
0 |
0 |
if ($cmd =~ s/\\$/\n/) |
|
325
|
0 |
0 |
if $cmd =~ /^$/ |
|
327
|
0 |
0 |
if length $cmd > 1 |
|
341
|
0 |
0 |
if ($alias{$i}) |
|
353
|
0 |
0 |
if ($@) |
|
366
|
0 |
0 |
unless $cmd =~ /^$do\s*/ |
|
367
|
0 |
0 |
if $commands{$do}($cmd) |
|
371
|
0 |
0 |
if ($cmd =~ /^q$/) |
|
377
|
0 |
0 |
if ($cmd =~ /^t$/) |
|
380
|
0 |
0 |
$trace & 1 ? : |
|
385
|
0 |
0 |
if ($cmd =~ /^S(\s+(!)?(.+))?$/) |
|
400
|
0 |
0 |
if ($Snocheck or $Srev ^ $subname =~ /$Spatt/) |
|
411
|
0 |
0 |
if ($cmd =~ /^V$/) |
|
416
|
0 |
0 |
if ($cmd =~ /^V\b\s*(\S+)\s*(.*)/) |
|
428
|
0 |
0 |
unless defined &main::dumpvar |
|
429
|
0 |
0 |
if (defined &main::dumpvar) { } |
|
439
|
0 |
0 |
defined $option{'dumpDepth'} ? : |
|
450
|
0 |
0 |
if ($@) |
|
451
|
0 |
0 |
unless $@ =~ /dumpvar print failed/ |
|
465
|
0 |
0 |
if ($cmd =~ s/^x\b/ /) |
|
470
|
0 |
0 |
if ($cmd =~ s/^\s*(\d+)(?=\s)/ /) |
|
475
|
0 |
0 |
if ($cmd =~ s/^m\s+([\w:]+)\s*$/ /) |
|
481
|
0 |
0 |
if ($cmd =~ s/^m\b/ /) |
|
485
|
0 |
0 |
if ($cmd =~ /^f\b\s*(.*)/) |
|
490
|
0 |
0 |
unless ($file) |
|
498
|
0 |
0 |
unless (defined $main::main::{'_<' . $file}) |
|
499
|
0 |
0 |
if (($try) = grep(/^_<.*$file/, keys %main::main::)) |
|
509
|
0 |
0 |
if (not defined $main::main::{'_<' . $file}) { } |
|
|
0 |
0 |
elsif ($file ne $filename) { } |
|
531
|
0 |
0 |
if ($cmd =~ /^\.$/) |
|
546
|
0 |
0 |
if ($cmd =~ /^-$/) |
|
550
|
0 |
0 |
if $start <= 0 |
|
559
|
0 |
0 |
if ($cmd =~ /^([aAbBeEhilLMoOPvwW]\b|[<>\{]{1,2})\s*(.*)/so) |
|
564
|
0 |
0 |
if ($cmd =~ /^y(?:\s+(\d*)\s*(.*))?$/) |
|
567
|
0 |
0 |
$@ =~ /locate/ ? : |
|
|
0 |
0 |
unless eval {
do {
require PadWalker;
'PadWalker'->VERSION(0.08)
}
} |
|
576
|
0 |
0 |
unless defined &main::dumpvar |
|
577
|
0 |
0 |
unless defined &main::dumpvar |
|
588
|
0 |
0 |
if $@ |
|
597
|
0 |
0 |
defined $option{'dumpDepth'} ? : |
|
603
|
0 |
0 |
if ($cmd =~ /^n$/) |
|
604
|
0 |
0 |
if $finished and $level <= 1 |
|
615
|
0 |
0 |
if ($cmd =~ /^s$/) |
|
619
|
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 == $$) { } |
|
1234
|
0 |
0 |
if ($piped) |
|
1237
|
0 |
0 |
if ($pager =~ /^\|/) { } |
|
1243
|
0 |
0 |
unless close OUT |
|
1247
|
0 |
0 |
if ($?) |
|
1249
|
0 |
0 |
if ($? == -1) { } |
|
|
0 |
0 |
elsif ($? >> 8) { } |
|
1253
|
0 |
0 |
$? & 127 ? : |
|
|
0 |
0 |
$? & 128 ? : |
|
1264
|
0 |
0 |
unless open OUT, '>&STDOUT' |
|
1265
|
0 |
0 |
unless open STDOUT, '>&SAVEOUT' |
|
1269
|
0 |
0 |
if $SIG{'PIPE'} eq \&catch |
|
1277
|
0 |
0 |
unless open OUT, '>&SAVEOUT' |
|
1283
|
0 |
0 |
unless $selected eq '' |
|
1291
|
0 |
0 |
unless defined $cmd |