| line |
true |
false |
branch |
|
42
|
0 |
26 |
unless eval {
do {
require XSLoader;
XSLoader::load('Data::Dumper');
1
}
} |
|
83
|
2 |
635 |
unless defined $v and ref $v eq 'ARRAY' |
|
85
|
419 |
216 |
unless defined $n and ref $n eq 'ARRAY' |
|
117
|
597 |
38 |
if ($Indent > 0) |
|
136
|
24 |
2 |
if (defined $g and ref $g eq 'HASH') { } |
|
139
|
23 |
1 |
if (defined $v) { } |
|
140
|
22 |
1 |
if (ref $v) { } |
|
142
|
16 |
6 |
if ($k =~ /^[*](.*)$/) { } |
|
|
5 |
1 |
elsif (not $k =~ /^\$/) { } |
|
143
|
9 |
1 |
ref $v eq 'CODE' ? : |
|
|
1 |
10 |
ref $v eq 'HASH' ? : |
|
|
5 |
11 |
ref $v eq 'ARRAY' ? : |
|
173
|
2 |
4 |
if (defined $v) { } |
|
174
|
1 |
1 |
if (ref $v eq 'ARRAY') { } |
|
192
|
4 |
1 |
if (defined $n) { } |
|
193
|
3 |
1 |
if (ref $n eq 'ARRAY') { } |
|
212
|
176 |
0 |
unless $Useperl or ref $_[0] and $_[0]{'useperl'} or not $IS_ASCII and $] lt 5.02101 |
|
227
|
121 |
166 |
unless ref $s |
|
237
|
120 |
861 |
if $s->{'indent'} >= 2 and not $s->{'terse'} |
|
241
|
970 |
6 |
if @post or not $s->{'terse'} |
|
246
|
84 |
198 |
wantarray ? : |
|
273
|
788 |
1751 |
if ($type) { } |
|
279
|
3 |
785 |
if ($freezer and UNIVERSAL::can($val, $freezer)) |
|
281
|
1 |
2 |
if $@ |
|
286
|
67 |
721 |
$realpack ? : |
|
291
|
232 |
556 |
if (exists $s->{'seen'}{$id}) { } |
|
292
|
76 |
156 |
if ($s->{'purity'} and $s->{'level'} > 0) { } |
|
293
|
30 |
22 |
$realtype eq 'ARRAY' ? : |
|
|
24 |
52 |
$realtype eq 'HASH' ? : |
|
300
|
30 |
126 |
if ($name =~ /^([\@\%])/) |
|
302
|
10 |
20 |
if ($out =~ /^\\$start/) { } |
|
314
|
2 |
522 |
$realtype eq 'CODE' && $name =~ /^[*](.*)$/ ? : |
|
|
32 |
524 |
$name =~ /^[\@%]/ ? : |
|
324
|
67 |
0 |
$] >= 5.009005 ? : |
|
|
54 |
13 |
if ($realpack and $] >= 5.009005 ? &re::is_regexp($val) : $realpack eq 'Regexp') |
|
333
|
9 |
349 |
if (not $s->{'purity'} and defined $s->{'maxdepth'} and $s->{'maxdepth'} > 0 and $s->{'level'} >= $s->{'maxdepth'}) |
|
342
|
4 |
543 |
if ($s->{'maxrecurse'} > 0 and $s->{'level'} >= $s->{'maxrecurse'}) |
|
349
|
14 |
529 |
if ($realpack and not $no_bless) |
|
352
|
11 |
3 |
if $s->{'indent'} >= 2 |
|
358
|
54 |
489 |
if ($is_regex) { } |
|
|
78 |
411 |
elsif ($realtype eq 'SCALAR' or $realtype eq 'REF' or $realtype eq 'VSTRING') { } |
|
|
54 |
357 |
elsif ($realtype eq 'GLOB') { } |
|
|
139 |
218 |
elsif ($realtype eq 'ARRAY') { } |
|
|
205 |
13 |
elsif ($realtype eq 'HASH') { } |
|
|
12 |
1 |
elsif ($realtype eq 'CODE') { } |
|
361
|
54 |
0 |
if (defined *re::regexp_pattern{'CODE'}) { } |
|
372
|
8 |
22 |
$2 ? : |
|
|
37 |
30 |
$1 ? : |
|
380
|
0 |
78 |
if ($realpack) { } |
|
393
|
23 |
116 |
$name =~ /^\@/ ? : |
|
395
|
47 |
69 |
$name =~ /^\\?[\%\@\*\$][^{].*[]}]$/ ? : |
|
|
23 |
116 |
$name =~ /^\@(.*)$/ ? : |
|
399
|
4 |
135 |
if $mname =~ /^\*.+\{[A-Z]+\}$/ |
|
403
|
14 |
308 |
if $s->{'indent'} >= 3 |
|
407
|
195 |
125 |
if $i++ < $#$val or $s->{'trailingcomma'} and $s->{'indent'} >= 1 |
|
409
|
129 |
8 |
if $i |
|
410
|
23 |
114 |
$name =~ /^\@/ ? : |
|
414
|
9 |
196 |
$name =~ /^\%/ ? : |
|
418
|
77 |
119 |
$name =~ /^\\?[\%\@\*\$][^{].*[]}]$/ ? : |
|
|
9 |
196 |
$name =~ /^\%(.*)$/ ? : |
|
422
|
12 |
193 |
if $mname =~ /^\*.+\{[A-Z]+\}$/ |
|
423
|
203 |
2 |
defined $s->{'sortkeys'} ? : |
|
425
|
113 |
92 |
if ($sortkeys) |
|
426
|
11 |
102 |
if (ref $s->{'sortkeys'} eq 'CODE') { } |
|
428
|
1 |
10 |
unless (ref $keys eq 'ARRAY') |
|
442
|
321 |
113 |
@$keys ? : |
|
|
276 |
434 |
!$sortkeys ? : |
|
449
|
6 |
502 |
if ($s->{'quotekeys'} and $nk =~ /^(?:0|-?[1-9][0-9]{0,8})\z/) { } |
|
|
150 |
648 |
elsif (not $s->{'quotekeys'} and $nk =~ /^[\"\']([A-Za-z_]\w*)[\"\']$/) { } |
|
450
|
3 |
3 |
$s->{'useqq'} ? : |
|
461
|
249 |
259 |
if $s->{'indent'} >= 2 |
|
464
|
249 |
256 |
if $s->{'indent'} >= 2 |
|
466
|
194 |
8 |
if (substr($out, -1) eq ',') |
|
467
|
190 |
4 |
unless $s->{'trailingcomma'} and $s->{'indent'} |
|
470
|
9 |
193 |
$name =~ /^\%/ ? : |
|
473
|
4 |
8 |
if ($s->{'deparse'}) { } |
|
482
|
1 |
7 |
if $s->{'purity'} |
|
489
|
13 |
522 |
if ($realpack and not $no_bless) |
|
492
|
0 |
13 |
if $s->{'toaster'} ne '' |
|
502
|
1199 |
552 |
if ($name ne '') |
|
504
|
110 |
1089 |
if (exists $s->{'seen'}{$id}) { } |
|
505
|
8 |
102 |
if ($s->{'seen'}{$id}[2]) |
|
517
|
74 |
1669 |
if (ref $ref eq 'GLOB') { } |
|
|
10 |
1659 |
elsif (not defined $val) { } |
|
|
6 |
1653 |
elsif (defined &Data::Dumper::_vstring and $v = &_vstring($val) and 1) { } |
|
|
0 |
1653 |
elsif (not defined &Data::Dumper::_vstring and ref $ref eq 'VSTRING' || eval {
do {
&Scalar::Util::isvstring($val)
}
}) { } |
|
|
458 |
1195 |
elsif ($val =~ /^(?:0|-?[1-9][0-9]{0,8})\z/) { } |
|
520
|
30 |
44 |
if ($name =~ /\A(?:[A-Z_a-z][0-9A-Z_a-z]*)?::(?:[0-9A-Z_a-z]+::)*[0-9A-Z_a-z]*\z/ and $name ne 'main::') { } |
|
525
|
1 |
43 |
$name eq 'main::' ? : |
|
533
|
24 |
50 |
if ($s->{'purity'}) |
|
538
|
16 |
56 |
unless defined $gval |
|
539
|
12 |
44 |
if $k eq 'SCALAR' and not defined $$gval |
|
544
|
6 |
38 |
if $s->{'indent'} >= 2 |
|
579
|
102 |
1093 |
if ($s->{'useqq'} or $val =~ tr/\000-\377//c) { } |
|
588
|
1726 |
552 |
if ($id) |
|
591
|
26 |
1700 |
if ($s->{'deepcopy'}) { } |
|
|
1700 |
0 |
elsif ($name) { } |
|
624
|
32 |
1 |
if (@_ >= 2) { } |
|
625
|
9 |
23 |
if ($v == 0) { } |
|
643
|
28 |
0 |
@_ >= 2 ? : |
|
648
|
2 |
1 |
@_ >= 2 ? : |
|
653
|
2 |
0 |
@_ >= 2 ? : |
|
658
|
2 |
0 |
@_ >= 2 ? : |
|
663
|
28 |
0 |
@_ >= 2 ? : |
|
668
|
6 |
0 |
@_ >= 2 ? : |
|
673
|
6 |
3 |
@_ >= 2 ? : |
|
678
|
6 |
0 |
@_ >= 2 ? : |
|
683
|
6 |
0 |
@_ >= 2 ? : |
|
688
|
8 |
0 |
@_ >= 2 ? : |
|
693
|
7 |
0 |
@_ >= 2 ? : |
|
698
|
6 |
0 |
@_ >= 2 ? : |
|
703
|
9 |
1 |
@_ >= 2 ? : |
|
708
|
0 |
0 |
@_ >= 2 ? : |
|
713
|
3 |
0 |
@_ >= 2 ? : |
|
718
|
39 |
0 |
@_ >= 2 ? : |
|
723
|
4 |
2 |
@_ >= 2 ? : |
|
728
|
6 |
0 |
@_ >= 2 ? : |
|
766
|
46 |
56 |
if $bytes > length $_ or not $IS_ASCII and utf8::is_utf8($_) |
|
774
|
69 |
33 |
unless /[[:^print:]]/ |
|
788
|
0 |
33 |
if ($high eq 'iso8859') { } |
|
|
0 |
33 |
elsif ($high eq 'utf8') { } |
|
|
0 |
33 |
elsif ($high eq '8bit') { } |
|
789
|
0 |
0 |
if ($IS_ASCII) { } |
|
814
|
203 |
778 |
if (defined $name) { } |
|
815
|
77 |
126 |
if ($name =~ /^[*](.*)$/) { } |
|
|
125 |
1 |
elsif (not $name =~ /^\$/) { } |
|
816
|
76 |
1 |
if (defined $val) { } |
|
817
|
4 |
10 |
ref $val eq 'CODE' ? : |
|
|
35 |
14 |
ref $val eq 'HASH' ? : |
|
|
27 |
49 |
ref $val eq 'ARRAY' ? : |
|
841
|
32 |
944 |
if (@{$postref;}) |