| line |
true |
false |
branch |
|
29
|
8 |
103 |
if @Data::Dump::FILTERS |
|
42
|
4 |
107 |
if (%Data::Dump::require) |
|
47
|
10 |
101 |
if (%Data::Dump::refcnt) |
|
51
|
10 |
17 |
if ($Data::Dump::refcnt{$name}) |
|
62
|
14 |
97 |
if $paren |
|
64
|
149 |
10 |
defined $_->[1] ? : |
|
67
|
14 |
97 |
if $paren |
|
69
|
13 |
98 |
if (%Data::Dump::refcnt or %Data::Dump::require) |
|
75
|
0 |
111 |
unless defined wantarray |
|
101
|
130 |
1055 |
$ref ? : |
|
109
|
26 |
1159 |
if ((my $i = rindex($strval, '=')) >= 0) |
|
113
|
1185 |
0 |
if ((my $i = index($strval, '(0x')) >= 0) { } |
|
120
|
0 |
1185 |
if ($] < 5.008 and $type eq 'SCALAR') |
|
121
|
0 |
0 |
if $ref eq 'REF' |
|
123
|
0 |
1185 |
if $Data::Dump::DEBUG |
|
128
|
11 |
1174 |
if (@Data::Dump::FILTERS) |
|
130
|
2 |
9 |
if $pclass |
|
134
|
6 |
5 |
if (my $f = &$filter($ctx, $rval)) |
|
135
|
1 |
5 |
if (my $v = $f->{'object'}) |
|
140
|
1 |
5 |
if (defined(my $c = $f->{'bless'})) |
|
143
|
1 |
5 |
if (my $c = $f->{'comment'}) |
|
146
|
1 |
5 |
if (defined(my $c = $f->{'dump'})) |
|
150
|
2 |
4 |
if (my $h = $f->{'hide_keys'}) |
|
151
|
2 |
0 |
if (ref $h eq 'ARRAY') |
|
154
|
1 |
1 |
if $k eq $_[0] |
|
162
|
2 |
9 |
if defined $out and not @bless |
|
163
|
3 |
8 |
if (@bless) |
|
165
|
0 |
3 |
if @bless |
|
169
|
1170 |
15 |
unless ($dont_remember) |
|
170
|
19 |
1151 |
if (my $s = $Data::Dump::seen{$id}) |
|
175
|
0 |
19 |
if $Data::Dump::DEBUG |
|
176
|
15 |
4 |
unless $sname eq $name |
|
179
|
1 |
3 |
if @$idx and $idx->[-1] eq '$' |
|
185
|
27 |
1139 |
if ($class) |
|
190
|
2 |
1164 |
if (defined $out) { } |
|
|
1042 |
122 |
elsif ($type eq 'SCALAR' or $type eq 'REF' or $type eq 'REGEXP') { } |
|
|
38 |
84 |
elsif ($type eq 'GLOB') { } |
|
|
18 |
66 |
elsif ($type eq 'ARRAY') { } |
|
|
54 |
12 |
elsif ($type eq 'HASH') { } |
|
|
1 |
11 |
elsif ($type eq 'CODE') { } |
|
|
11 |
0 |
elsif ($type eq 'VSTRING') { } |
|
194
|
32 |
1010 |
if ($ref) { } |
|
195
|
9 |
23 |
if ($class and $class eq 'Regexp') { } |
|
199
|
9 |
0 |
if ($v =~ /^\(\?\^?([msix-]*):([\x00-\xFF]*)\)\z/) |
|
207
|
4 |
5 |
if ($sep_count) |
|
212
|
3 |
7 |
if ($c < $sep_count) |
|
215
|
3 |
0 |
if $sep_count == 0 |
|
225
|
11 |
12 |
if $type eq 'SCALAR' |
|
227
|
4 |
19 |
$class ? : |
|
230
|
3 |
1007 |
if (not defined $$rval) { } |
|
|
4 |
1003 |
elsif ($$rval =~ /^-?(?:nan|inf)/i) { } |
|
|
692 |
311 |
elsif (do {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x51\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x05"}
$$rval + 0 eq $$rval
}) { } |
|
242
|
1 |
1009 |
if ($class and not @$idx) |
|
252
|
5 |
33 |
if ($ref) { } |
|
256
|
3 |
2 |
if ($out =~ /^\\\*Symbol::/) |
|
266
|
59 |
40 |
unless defined $gval |
|
267
|
28 |
12 |
if $k eq 'SCALAR' and not defined $$gval |
|
297
|
1 |
53 |
if ($hide_keys) |
|
302
|
34 |
7 |
unless /^[-+]?(?:0|[1-9]\d*)(?:\.\d+)?\z/ |
|
305
|
34 |
20 |
if ($text_keys) { } |
|
314
|
266 |
10 |
if $key =~ /^-?[a-zA-Z_]\w*\z/ |
|
315
|
4 |
6 |
if $key =~ /^-?[1-9]\d{0,8}\z/ |
|
322
|
439 |
255 |
if $quote |
|
323
|
79 |
615 |
if length $key > $kstat_max |
|
333
|
1 |
39 |
if (length $tmp > $Data::Dump::LINEWIDTH or $tmp =~ /\n/ or $tied) |
|
337
|
5 |
10 |
if ($kstat_max < 4) { } |
|
|
10 |
0 |
elsif (@keys >= 2) { } |
|
346
|
5 |
5 |
if ($stddev / $kstat_max < 0.25) |
|
349
|
0 |
10 |
if ($Data::Dump::DEBUG) |
|
358
|
1 |
53 |
if $tied |
|
362
|
604 |
90 |
$klen_pad ? : |
|
364
|
645 |
49 |
$nl ? : |
|
365
|
579 |
115 |
if $nl and $klen_pad > length $key |
|
368
|
39 |
15 |
unless $nl |
|
375
|
3 |
8 |
$ref ? : |
|
382
|
14 |
1152 |
if ($class and $ref) |
|
385
|
1 |
1165 |
if ($comment) |
|
387
|
1 |
0 |
unless $comment =~ /\n\z/ |
|
396
|
2 |
70 |
if ($tied) |
|
397
|
2 |
0 |
if (my $tied_ref = ref $tied) { } |
|
413
|
2 |
7 |
if ($ref and @i and $i[0] eq '$') |
|
424
|
7 |
28 |
if ($i eq '*' or $i eq '$') { } |
|
|
2 |
26 |
elsif ($i =~ s/^\*//) { } |
|
431
|
24 |
2 |
unless $last_was_index++ |
|
435
|
7 |
34 |
if $ref |
|
443
|
32 |
97 |
$paren ? : |
|
444
|
12 |
117 |
if (@_ > 3) |
|
452
|
37 |
279 |
if ($v eq '0' or $v =~ /^-?[1-9]\d{0,9}\z/) { } |
|
|
266 |
13 |
elsif ($v =~ /^"([A-Za-z]{1,3}\d*)"\z/) { } |
|
463
|
14 |
289 |
if $_[$j] ne $v |
|
466
|
9 |
31 |
if ($j - $i > 3) |
|
473
|
1 |
128 |
if ($comment or @_ > $indent_lim and length $tmp > $Data::Dump::LINEWIDTH || $tmp =~ /\n/) { } |
|
476
|
1 |
0 |
$comment ? : |
|
484
|
14 |
301 |
if (length $_[0] > 20) |
|
487
|
4 |
10 |
if (/^(.)\1\1\1/s) |
|
490
|
4 |
0 |
unless (/[^\Q$1\E]/) |
|
497
|
2 |
8 |
if (length $_ < 16384 and /^(.{2,5}?)\1*\z/s) |
|
507
|
3 |
5 |
if (length $_ > 40 and not /\\x\{/ and length $_ > length($_[0]) * 2) |
|
513
|
1 |
1 |
if ($Data::Dump::TRY_BASE64 and length $_[0] > $Data::Dump::TRY_BASE64 and (defined &utf8::is_utf8 and not utf8::is_utf8($_[0])) and eval {
do {
require MIME::Base64
}
}) |
|
543
|
758 |
16 |
unless /[^\040-\176]/ |