line |
true |
false |
branch |
25
|
0 |
16 |
if (defined $ENV{'DUMPTRACE'}) |
26
|
0 |
0 |
$ENV{'DUMPTRACE'} =~ /;/ ? : |
39
|
16 |
0 |
if (defined ${^GLOBAL_PHASE}) { } |
40
|
0 |
0 |
if ${^GLOBAL_PHASE} eq 'DESTRUCT' |
155
|
11 |
21 |
if (grep {$_ eq ':test';} @args) |
172
|
0 |
32 |
if (@args > 0) |
181
|
0 |
0 |
if &__inGD() |
182
|
0 |
0 |
unless $TRACE |
189
|
0 |
0 |
if ($DB::single < 2) |
190
|
0 |
0 |
if _exclude_pkg($f, $p, $l) |
191
|
0 |
0 |
if _display_style() == 0 |
207
|
0 |
0 |
unless (defined $sources{$file}) |
213
|
0 |
0 |
if ($@) |
220
|
0 |
0 |
if (open my $grrrrr, '<', $file) |
234
|
0 |
0 |
if $INCLUDE_PKG{$pkg} or $INCLUDE_PKG{$file} |
236
|
0 |
0 |
if ($pkg =~ /$_/) |
242
|
0 |
0 |
if $EXCLUDE_PKG{$pkg} or $EXCLUDE_PKG{$file} |
244
|
0 |
0 |
if ($pkg =~ /$_/) |
245
|
0 |
0 |
if $pkg =~ /$_/ |
248
|
0 |
0 |
if _package_style() > 0 |
252
|
0 |
0 |
if (index($inc, '/') >= 0 and index($file, $inc) == 0) |
263
|
4 |
12 |
if $TRACE eq 'default' |
327
|
0 |
11 |
if ($target_depth < 0) |
332
|
0 |
11 |
if ($n < 0) |
342
|
0 |
11 |
unless (eval {
do {
$PAD_MY = PadWalker::peek_my($n + 1);
$PAD_OUR = PadWalker::peek_our($n + 1);
1
}
}) |
361
|
0 |
0 |
if &__inGD() |
364
|
0 |
0 |
if ($current >= $target) |
390
|
0 |
0 |
if ($last_dumptrace and $dt eq $last_dumptrace) |
396
|
0 |
0 |
if ($DUMPTRACE_COLOR) |
401
|
0 |
0 |
if our $LOCKOBJ |
409
|
0 |
0 |
if ($style > 1) |
417
|
0 |
0 |
if ($code =~ m[[-+*/&|^.%]?=[^=>]] or $code =~ m[[\b*&|/<>]{2}=\b]) { } |
422
|
0 |
0 |
if ($style < 4) { } |
439
|
0 |
0 |
if ("$expr1$expr2" ne $code) |
440
|
0 |
0 |
if ($style >= 4) |
457
|
0 |
0 |
if ($code =~ /^ \s* (my|our) \s*
[\$\@%*\(] /x and $code =~ / (?
|
471
|
0 |
0 |
if ($style >= 4) { } |
|
0 |
0 |
elsif ($style == 1) { } |
472
|
0 |
0 |
if ($xcode ne $code) |
484
|
0 |
0 |
if $SEPARATOR_USED++ |
501
|
69 |
1159 |
unless defined $scalar |
502
|
42 |
1117 |
if (ref $scalar) |
503
|
1 |
41 |
if ($_dump_scalar_seen{$scalar}) |
508
|
22 |
19 |
if (&Scalar::Util::reftype($scalar) eq 'ARRAY') { } |
|
11 |
8 |
elsif (&Scalar::Util::reftype($scalar) eq 'HASH') { } |
|
0 |
8 |
elsif (&Scalar::Util::reftype($scalar) eq 'GLOB') { } |
520
|
464 |
653 |
if (&Scalar::Util::looks_like_number($scalar)) |
525
|
4 |
649 |
if (ref \$scalar eq 'GLOB') |
529
|
1 |
648 |
if ($qq ne $scalar) |
537
|
1113 |
0 |
if (_abbrev_style() >= 4) |
540
|
0 |
0 |
if (_abbrev_style() > 1) { } |
557
|
0 |
649 |
if $bytes > length $_ |
558
|
648 |
1 |
unless m([^ !"\#\$%&'()*+,\-./0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~]) |
568
|
0 |
1 |
if ($high eq 'iso8859') { } |
|
0 |
1 |
elsif ($high eq 'utf8') { } |
|
0 |
1 |
elsif ($high eq '8bit') { } |
589
|
1 |
81 |
unless defined $hashref |
590
|
0 |
81 |
unless $SMART_ABBREV |
591
|
22 |
59 |
ref $hashref && ref $hashref ne 'HASH' ? : |
593
|
0 |
0 |
_abbrev_style() > 1 ? : |
|
0 |
81 |
_abbrev_style() < 4 ? : |
604
|
0 |
81 |
if ((&Scalar::Util::reftype($hashref) || '') ne 'HASH') |
609
|
0 |
81 |
if (@keys == 0 and 'Devel::DumpTrace::CachedDisplayedHash'->is($hashref)) { } |
|
0 |
81 |
elsif (not tied %{$hashref;} and @keys == 0 and not __hashref_is_symbol_table($hashref) and 100 < scalar &safekeys(\%$hashref)) { } |
613
|
0 |
0 |
if (defined $result) |
637
|
0 |
81 |
if (_abbrev_style() < 4) { } |
651
|
0 |
81 |
if (@keys == 0 and 'Devel::DumpTrace::CachedDisplayedHash'->is($hashref)) |
655
|
0 |
81 |
unless (defined $HASH_PAIR_SEPARATOR) |
662
|
860 |
0 |
defined $_ ? : |
667
|
2 |
79 |
$Devel::DumpTrace::HASHREPR_SORT ? : |
686
|
1 |
93 |
unless defined $arrayref |
687
|
0 |
93 |
unless $SMART_ABBREV |
688
|
21 |
72 |
ref $arrayref && ref $arrayref ne 'ARRAY' ? : |
690
|
0 |
0 |
_abbrev_style() > 1 ? : |
|
0 |
93 |
_abbrev_style() < 4 ? : |
700
|
0 |
93 |
if (@keys == 0 and 'Devel::DumpTrace::CachedDisplayedArray'->is($arrayref)) { } |
|
0 |
93 |
elsif (@keys == 0 and not tied @{$arrayref;} and 100 < scalar @{$arrayref;}) { } |
704
|
0 |
0 |
if (defined $result) |
713
|
0 |
0 |
unless (eval {
do {
tie @{$arrayref;}, 'Devel::DumpTrace::CachedDisplayedArray', @{$arrayref;};
$array = tied(@{$arrayref;})->{'PARRAY'}
}
}) |
721
|
0 |
93 |
if ($maxlen > 0) { } |
727
|
0 |
93 |
if (@keys == 0 and 'Devel::DumpTrace::CachedDisplayedArray'->is($arrayref)) |
739
|
0 |
16 |
if _display_style() > 1 |
748
|
0 |
0 |
if (defined $deferred) |
758
|
0 |
0 |
if ($deferred->{'DISPLAY_FILE_AND_LINE'}) |
763
|
0 |
0 |
if (defined $line) { } |
848
|
8 |
0 |
if ($i >= 0) |
851
|
0 |
8 |
if @y == 0 |
875
|
10 |
183 |
if ($ALWAYS_MAIN{$varname} or $varname =~ /^\d+$/) |
879
|
15 |
178 |
if ($varname =~ /::/ or $pkg eq '::') |
883
|
42 |
151 |
if ($deref_op) |
887
|
14 |
28 |
if (defined $Devel::DumpTrace::PAD_MY->{$sigvar}) { } |
|
14 |
14 |
elsif (defined $Devel::DumpTrace::PAD_OUR->{$sigvar}) { } |
|
0 |
14 |
elsif (defined $Devel::DumpTrace::PAD_MY->{'__STALE__'}{$sigvar}) { } |
|
0 |
14 |
elsif (defined $Devel::DumpTrace::PAD_OUR->{'__STALE__'}{$sigvar}) { } |
898
|
12 |
30 |
if ($index_op eq '[') |
901
|
12 |
18 |
if ($index_op eq '{') |
906
|
0 |
18 |
if (not defined $reftype or $reftype eq '') { } |
|
6 |
12 |
elsif ($reftype eq 'HASH') { } |
|
6 |
6 |
elsif ($reftype eq 'ARRAY') { } |
917
|
25 |
126 |
if ($index_op eq '{') |
920
|
7 |
18 |
if (defined $Devel::DumpTrace::PAD_MY->{$sigvar}) { } |
|
7 |
11 |
elsif (defined $Devel::DumpTrace::PAD_OUR->{$sigvar}) { } |
929
|
21 |
105 |
if ($sigil eq '@') |
933
|
2 |
19 |
if ($varname eq '_') { } |
|
8 |
11 |
elsif (defined $Devel::DumpTrace::PAD_MY->{$sigvar}) { } |
|
4 |
7 |
elsif (defined $Devel::DumpTrace::PAD_OUR->{$sigvar}) { } |
951
|
0 |
7 |
unless (defined $v) |
957
|
8 |
13 |
if ($index_op eq '[') |
962
|
19 |
86 |
if ($sigil eq '%') |
965
|
5 |
14 |
if (defined $Devel::DumpTrace::PAD_MY->{$sigvar}) { } |
|
5 |
9 |
elsif (defined $Devel::DumpTrace::PAD_OUR->{$sigvar}) { } |
974
|
86 |
0 |
if ($sigil eq '$') |
975
|
23 |
63 |
if ($index_op eq '[') { } |
|
7 |
56 |
elsif ($varname =~ /^\d+$/) { } |
978
|
6 |
17 |
if ($varname eq '_') { } |
|
6 |
11 |
elsif (defined $Devel::DumpTrace::PAD_MY->{$sigvar}) { } |
|
4 |
7 |
elsif (defined $Devel::DumpTrace::PAD_OUR->{$sigvar}) { } |
987
|
0 |
7 |
unless (defined $v) |
1002
|
2 |
54 |
if ($varname eq '_') |
1007
|
24 |
32 |
if (defined $Devel::DumpTrace::PAD_MY->{$sigvar}) { } |
|
12 |
20 |
elsif (defined $Devel::DumpTrace::PAD_OUR->{$sigvar}) { } |
1044
|
0 |
15 |
if ($INC{'threads.pm'}) |
1058
|
16 |
0 |
unless $_THREADS and 'threads'->tid |
1090
|
0 |
36 |
unless defined $value |
1099
|
0 |
36 |
unless ($style =~ /^\d+$/) |
1104
|
2 |
34 |
if (defined $package) |
1107
|
2 |
0 |
if ($package) |