| line |
true |
false |
branch |
|
54
|
0 |
59 |
unless @_ |
|
71
|
256 |
0 |
unless $Data::Dump::Color::COLOR |
|
73
|
0 |
0 |
unless defined $ct_obj |
|
77
|
0 |
0 |
if (defined $item) |
|
80
|
0 |
0 |
if (length $ansi) { } |
|
95
|
0 |
8 |
if $Data::Dump::Color::COLOR and not defined $ct_obj |
|
96
|
0 |
8 |
if @Data::Dump::Color::FILTERS |
|
112
|
0 |
8 |
if (%Data::Dump::Color::require) |
|
118
|
1 |
7 |
if (%Data::Dump::Color::refcnt) |
|
123
|
1 |
0 |
if ($Data::Dump::Color::refcnt{$name}) |
|
137
|
0 |
8 |
if $paren |
|
138
|
0 |
8 |
if $paren |
|
141
|
7 |
1 |
defined $_->[1] ? : |
|
142
|
7 |
1 |
defined $_->[1] ? : |
|
147
|
0 |
8 |
if $paren |
|
148
|
0 |
8 |
if $paren |
|
150
|
1 |
7 |
if (%Data::Dump::Color::refcnt or %Data::Dump::Color::require) |
|
159
|
0 |
8 |
unless defined wantarray |
|
188
|
21 |
59 |
$ref ? : |
|
198
|
1 |
79 |
if ((my $i = rindex($strval, "=")) >= 0) |
|
202
|
80 |
0 |
if ((my $i = index($strval, '(0x')) >= 0) { } |
|
209
|
0 |
80 |
if ($] < "5.008" and $type eq "SCALAR") |
|
210
|
0 |
0 |
if $ref eq "REF" |
|
212
|
0 |
80 |
if $Data::Dump::Color::DEBUG |
|
218
|
0 |
80 |
if (@Data::Dump::Color::FILTERS) |
|
220
|
0 |
0 |
if $pclass |
|
224
|
0 |
0 |
if (my $f = &$filter($ctx, $rval)) |
|
225
|
0 |
0 |
if (my $v = $f->{'object'}) |
|
230
|
0 |
0 |
if (defined(my $c = $f->{'bless'})) |
|
233
|
0 |
0 |
if (my $c = $f->{'comment'}) |
|
236
|
0 |
0 |
if (defined(my $c = $f->{'dump'})) |
|
241
|
0 |
0 |
if (my $h = $f->{'hide_keys'}) |
|
242
|
0 |
0 |
if (ref $h eq "ARRAY") |
|
245
|
0 |
0 |
if $k eq $_[0] |
|
253
|
0 |
0 |
if defined $out and not @bless |
|
254
|
0 |
0 |
if (@bless) |
|
256
|
0 |
0 |
if @bless |
|
260
|
80 |
0 |
unless ($dont_remember) |
|
261
|
1 |
79 |
if (my $s = $Data::Dump::Color::seen{$id}) |
|
266
|
0 |
1 |
if $Data::Dump::Color::DEBUG |
|
267
|
0 |
1 |
unless $sname eq $name |
|
273
|
0 |
1 |
if @$idx and $idx->[-1] eq "\$" |
|
285
|
1 |
78 |
if ($class) |
|
290
|
0 |
79 |
if (defined $out) { } |
|
|
62 |
17 |
elsif ($type eq 'SCALAR' or $type eq 'REF' or $type eq 'REGEXP') { } |
|
|
0 |
17 |
elsif ($type eq 'GLOB') { } |
|
|
6 |
11 |
elsif ($type eq 'ARRAY') { } |
|
|
11 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'CODE') { } |
|
|
0 |
0 |
elsif ($type eq 'VSTRING') { } |
|
294
|
3 |
59 |
if ($ref) { } |
|
295
|
0 |
3 |
if ($class and $class eq 'Regexp') { } |
|
299
|
0 |
0 |
if ($v =~ /^\(\?\^?([msix-]*):([\x00-\xFF]*)\)\z/) |
|
307
|
0 |
0 |
if ($sep_count) |
|
312
|
0 |
0 |
if ($c < $sep_count) |
|
315
|
0 |
0 |
if $sep_count == 0 |
|
326
|
2 |
1 |
if $type eq "SCALAR" |
|
328
|
1 |
2 |
$class ? : |
|
329
|
1 |
2 |
$class ? : |
|
332
|
0 |
59 |
if (not defined $$rval) { } |
|
|
16 |
43 |
elsif (my $ntype = &looks_like_number($$rval)) { } |
|
337
|
16 |
0 |
if ($lan_available) { } |
|
341
|
6 |
10 |
$ntype < 20 ? : |
|
342
|
4 |
12 |
$ntype =~ /^(5|13|8704)$/ ? : |
|
356
|
0 |
59 |
if ($class and not @$idx) |
|
367
|
0 |
0 |
if ($ref) { } |
|
372
|
0 |
0 |
if ($out =~ /^\\\*Symbol::/) |
|
384
|
0 |
0 |
unless defined $gval |
|
385
|
0 |
0 |
if $k eq "SCALAR" and not defined $$gval |
|
422
|
0 |
11 |
if ($hide_keys) |
|
427
|
10 |
2 |
unless /^[-+]?(?:0|[1-9]\d*)(?:\.\d+)?\z/ |
|
430
|
10 |
1 |
if ($text_keys) { } |
|
439
|
57 |
2 |
if $key =~ /^-?[a-zA-Z_]\w*\z/ |
|
440
|
2 |
0 |
if $key =~ /^-?[1-9]\d{0,8}\z/ |
|
449
|
0 |
59 |
if $quote |
|
450
|
33 |
26 |
if length $key > $kstat_max |
|
470
|
0 |
0 |
if (length $tmp > 60 or $tmp =~ /\n/ or $tied) |
|
474
|
1 |
10 |
if ($kstat_max < 4) { } |
|
|
10 |
0 |
elsif (@keys >= 2) { } |
|
483
|
7 |
3 |
if ($stddev / $kstat_max < "0.25") |
|
486
|
0 |
10 |
if ($Data::Dump::Color::DEBUG) |
|
501
|
28 |
31 |
if $klen < $klen_pad |
|
503
|
25 |
34 |
if $maxkvlen < $kvlen |
|
505
|
0 |
11 |
if $maxkvlen > 80 |
|
509
|
0 |
11 |
if $tied |
|
510
|
0 |
11 |
if $tied |
|
521
|
41 |
18 |
$klen_pad ? : |
|
524
|
59 |
0 |
$nl ? : |
|
526
|
18 |
41 |
if ($pad_len < 0) |
|
527
|
59 |
0 |
if $nl |
|
528
|
10 |
49 |
$vmultiline ? : |
|
531
|
59 |
0 |
if $Data::Dump::Color::INDEX |
|
532
|
0 |
59 |
if defined $origk and length $origk >= $Data::Dump::Color::LENTHRESHOLD |
|
533
|
0 |
59 |
if defined $origv and length $origv >= $Data::Dump::Color::LENTHRESHOLD |
|
534
|
59 |
0 |
$nl && length $visaid ? : |
|
535
|
59 |
0 |
$nl && length $visaid ? : |
|
538
|
0 |
11 |
unless $nl |
|
539
|
0 |
11 |
unless $nl |
|
548
|
0 |
0 |
$ref ? : |
|
557
|
1 |
78 |
if ($class and $ref) |
|
561
|
0 |
79 |
if ($comment) |
|
563
|
0 |
0 |
unless $comment =~ /\n\z/ |
|
573
|
0 |
17 |
if ($tied) |
|
574
|
0 |
0 |
if (my $tied_ref = ref $tied) { } |
|
592
|
0 |
0 |
if ($ref and @i and $i[0][0] eq "\$") |
|
604
|
0 |
2 |
if ($i->[0] eq '*' or $i->[0] eq '$') { } |
|
|
0 |
2 |
elsif ($i->[0] =~ s/^\*//) { } |
|
619
|
0 |
2 |
if $ref |
|
629
|
6 |
8 |
$paren ? : |
|
634
|
1 |
13 |
if (@vals > 3) |
|
642
|
1 |
2 |
if ($v eq '0' or $v =~ /^-?[1-9]\d{0,9}\z/) { } |
|
|
0 |
2 |
elsif ($v =~ /^"([A-Za-z]{1,3}\d*)"\z/) { } |
|
653
|
1 |
0 |
if $vals[$j] ne $v |
|
656
|
0 |
4 |
if ($j - $i > 3) |
|
665
|
0 |
14 |
if ($comment or @vals > $indent_lim and length $tmp > 60 || $tmp =~ /\n/) { } |
|
671
|
0 |
0 |
if $maxvlen < $lenvfirstline |
|
673
|
0 |
0 |
if $maxvlen > 80 |
|
676
|
0 |
0 |
$comment ? : |
|
677
|
0 |
0 |
$comment ? : |
|
687
|
0 |
0 |
if $Data::Dump::Color::INDEX |
|
688
|
0 |
0 |
if defined $orig[$i] and length $orig[$i] >= $Data::Dump::Color::LENTHRESHOLD |
|
689
|
0 |
0 |
length $visaid ? : |
|
690
|
0 |
0 |
length $visaid ? : |
|
699
|
3 |
40 |
if (length $_[0] > 20) |
|
702
|
0 |
3 |
if (/^(.)\1\1\1/s) |
|
705
|
0 |
0 |
unless (/[^\Q$1\E]/) |
|
712
|
0 |
3 |
if (length $_ < 16384 and /^(.{2,5}?)\1*\z/s) |
|
722
|
0 |
2 |
if (length $_ > 40 and not /\\x\{/ and length $_ > length($_[0]) * 2) |
|
728
|
0 |
0 |
if ($Data::Dump::Color::TRY_BASE64 and length $_[0] > $Data::Dump::Color::TRY_BASE64 and (defined &utf8::is_utf8 and not utf8::is_utf8($_[0])) and eval {
do {
require MIME::Base64
}
}) |
|
758
|
45 |
0 |
unless /[^\040-\176]/ |