| line |
true |
false |
branch |
|
46
|
5 |
83 |
if (%Data::Dump::Perl6::refcnt) |
|
51
|
5 |
7 |
if ($Data::Dump::Perl6::refcnt{$name}) |
|
62
|
10 |
78 |
if $paren |
|
63
|
121 |
5 |
defined $_->[1] ? : |
|
64
|
10 |
78 |
if $paren |
|
66
|
5 |
83 |
if (%Data::Dump::Perl6::refcnt) |
|
72
|
0 |
88 |
unless defined wantarray |
|
92
|
78 |
441 |
$ref ? : |
|
101
|
18 |
501 |
if ((my $i = rindex($strval, '=')) >= 0) |
|
105
|
519 |
0 |
if ((my $i = index($strval, '(0x')) >= 0) { } |
|
112
|
0 |
519 |
if ($] < 5.008 and $type eq 'SCALAR') |
|
113
|
0 |
0 |
if $ref eq 'REF' |
|
115
|
0 |
519 |
if $Data::Dump::Perl6::DEBUG |
|
121
|
507 |
12 |
unless ($dont_remember) |
|
122
|
11 |
496 |
if (my $s = $Data::Dump::Perl6::seen{$id}) |
|
126
|
0 |
11 |
if $Data::Dump::Perl6::DEBUG |
|
128
|
5 |
6 |
unless ($sname eq $name) |
|
135
|
2 |
4 |
if (&blessed($rval)) |
|
141
|
0 |
6 |
if @$idx and $idx->[-1] eq '$' |
|
147
|
16 |
492 |
if ($class) |
|
152
|
0 |
508 |
if (defined $out) { } |
|
|
428 |
80 |
elsif ($type eq 'SCALAR' or $type eq 'REF' or $type eq 'REGEXP') { } |
|
|
20 |
60 |
elsif ($type eq 'GLOB') { } |
|
|
19 |
41 |
elsif ($type eq 'ARRAY') { } |
|
|
30 |
11 |
elsif ($type eq 'HASH') { } |
|
|
0 |
11 |
elsif ($type eq 'CODE') { } |
|
|
11 |
0 |
elsif ($type eq 'VSTRING') { } |
|
157
|
15 |
413 |
if ($ref) { } |
|
158
|
0 |
15 |
if ($class and $class eq 'Regexp') { } |
|
163
|
0 |
0 |
if ($v =~ /^\(\?\^?([msix-]*):([\x00-\xFF]*)\)\z/) |
|
171
|
0 |
0 |
if ($sep_count) |
|
178
|
0 |
0 |
if ($c < $sep_count) |
|
181
|
0 |
0 |
if $sep_count == 0 |
|
191
|
7 |
8 |
if $type eq 'SCALAR' |
|
200
|
3 |
410 |
if (not defined $$rval) { } |
|
|
95 |
315 |
elsif (do {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x51\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15"}
$$rval + 0 eq $$rval
}) { } |
|
211
|
1 |
412 |
if ($class and not @$idx) |
|
224
|
1 |
19 |
if ($ref) { } |
|
228
|
0 |
1 |
if (exists $fh{$val}) { } |
|
239
|
2 |
17 |
if (exists $fh{$out}) { } |
|
255
|
2 |
289 |
&blessed($v) ? : |
|
270
|
0 |
30 |
if ($hide_keys) |
|
275
|
25 |
7 |
unless /^[-+]?(?:0|[1-9]\d*)(?:\.\d+)?\z/ |
|
278
|
25 |
5 |
if ($text_keys) { } |
|
279
|
0 |
113 |
unless lc $a cmp lc $b |
|
287
|
64 |
13 |
if $key =~ /^[a-zA-Z_]\w*\z/ |
|
288
|
4 |
9 |
if $key =~ /^[1-9]\d{0,8}\z/ |
|
290
|
4 |
5 |
if ($Data::Dump::Perl6::UTF8) |
|
291
|
4 |
0 |
if $key =~ /^[\pL_][\pL\w]*\z/ |
|
302
|
27 |
59 |
if $quote |
|
303
|
48 |
38 |
if length $key > $kstat_max |
|
310
|
7 |
79 |
&blessed($$val) ? : |
|
321
|
1 |
16 |
if (length $tmp > 60 or $tmp =~ /\n/ or $tied) |
|
325
|
5 |
9 |
if ($kstat_max < 4) { } |
|
|
6 |
3 |
elsif (@keys >= 2) { } |
|
334
|
3 |
3 |
if ($stddev / $kstat_max < 0.25) |
|
337
|
0 |
6 |
if ($Data::Dump::Perl6::DEBUG) |
|
344
|
1 |
29 |
if $tied |
|
348
|
45 |
41 |
$klen_pad ? : |
|
350
|
56 |
30 |
$nl ? : |
|
351
|
24 |
62 |
if $nl and $klen_pad > length $key |
|
354
|
16 |
14 |
unless $nl |
|
368
|
12 |
496 |
if ($class and $ref) |
|
371
|
0 |
12 |
unless ($class =~ /^[\pL_][\pL\d_]*(?:::[\pL\d_]+)*\z/) |
|
377
|
0 |
508 |
if ($comment) |
|
379
|
0 |
0 |
unless $comment =~ /\n\z/ |
|
388
|
2 |
47 |
if ($tied) |
|
389
|
2 |
0 |
if (my $tied_ref = ref $tied) { } |
|
404
|
0 |
4 |
if ($ref and @i and $i[0] eq '$') |
|
415
|
0 |
22 |
if ($i eq '*' or $i eq '$') { } |
|
|
0 |
22 |
elsif ($i =~ s/^\*//) { } |
|
439
|
29 |
78 |
$paren ? : |
|
440
|
9 |
98 |
if (@_ > 3) |
|
450
|
37 |
270 |
if ($v eq '0' or $v =~ /^-?[1-9]\d{0,9}\z/) { } |
|
|
266 |
4 |
elsif ($v =~ /^"([A-Za-z]{1,3}\d*)"\z/) { } |
|
461
|
14 |
289 |
if $_[$j] ne $v |
|
464
|
9 |
19 |
if ($j - $i > 3) |
|
471
|
5 |
102 |
if ($comment or @_ > $indent_lim and length $tmp > 60 || $tmp =~ /\n/) { } |
|
474
|
1 |
4 |
$comment ? : |
|
482
|
11 |
304 |
if (length $_[0] > 20) |
|
486
|
4 |
7 |
if (/^(.)\1\1\1/s) |
|
490
|
4 |
0 |
unless (/[^\Q$1\E]/) |
|
498
|
2 |
5 |
if (length $_ < 16384 and /^(.{2,5}?)\1*\z/s) |
|
525
|
330 |
18 |
unless /[^\040-\176]/ |
|
534
|
5 |
13 |
if ($Data::Dump::Perl6::UTF8) { } |