| line |
true |
false |
branch |
|
37
|
0 |
0 |
if @Data::Dump::IfSmall::FILTERS |
|
50
|
0 |
0 |
if (%Data::Dump::IfSmall::require) |
|
55
|
0 |
0 |
if (%Data::Dump::IfSmall::refcnt) |
|
59
|
0 |
0 |
if ($Data::Dump::IfSmall::refcnt{$name}) |
|
64
|
0 |
0 |
if ($Data::Dump::IfSmall::SHOW_FIXUPS) |
|
72
|
0 |
0 |
if $paren |
|
74
|
0 |
0 |
defined $_->[1] ? : |
|
77
|
0 |
0 |
if $paren |
|
79
|
0 |
0 |
if (%Data::Dump::IfSmall::refcnt or %Data::Dump::IfSmall::require) |
|
85
|
0 |
0 |
if (length $out > $MAX_SIZE and @_ == 1 && ref $_[0] || @_ > 1) |
|
86
|
0 |
0 |
@_ == 1 ? : |
|
89
|
0 |
0 |
unless defined wantarray |
|
115
|
0 |
0 |
$ref ? : |
|
123
|
0 |
0 |
if ((my $i = rindex($strval, "=")) >= 0) |
|
127
|
0 |
0 |
if ((my $i = index($strval, '(0x')) >= 0) { } |
|
134
|
0 |
0 |
if ($] < "5.008" and $type eq "SCALAR") |
|
135
|
0 |
0 |
if $ref eq "REF" |
|
137
|
0 |
0 |
if $Data::Dump::IfSmall::DEBUG |
|
142
|
0 |
0 |
if (@Data::Dump::IfSmall::FILTERS) |
|
144
|
0 |
0 |
if $pclass |
|
148
|
0 |
0 |
if (my $f = &$filter($ctx, $rval)) |
|
149
|
0 |
0 |
if (my $v = $f->{'object'}) |
|
154
|
0 |
0 |
if (defined(my $c = $f->{'bless'})) |
|
157
|
0 |
0 |
if (my $c = $f->{'comment'}) |
|
160
|
0 |
0 |
if (defined(my $c = $f->{'dump'})) |
|
164
|
0 |
0 |
if (my $h = $f->{'hide_keys'}) |
|
165
|
0 |
0 |
if (ref $h eq "ARRAY") |
|
168
|
0 |
0 |
if $k eq $_[0] |
|
176
|
0 |
0 |
if defined $out and not @bless |
|
177
|
0 |
0 |
if (@bless) |
|
179
|
0 |
0 |
if @bless |
|
183
|
0 |
0 |
unless ($dont_remember) |
|
184
|
0 |
0 |
if (my $s = $Data::Dump::IfSmall::seen{$id}) |
|
189
|
0 |
0 |
if $Data::Dump::IfSmall::DEBUG |
|
190
|
0 |
0 |
unless $sname eq $name |
|
193
|
0 |
0 |
if @$idx and $idx->[-1] eq "\$" |
|
199
|
0 |
0 |
if ($class) |
|
204
|
0 |
0 |
if (defined $out) { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR' or $type eq 'REF' or $type eq 'REGEXP') { } |
|
|
0 |
0 |
elsif ($type eq 'GLOB') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'CODE') { } |
|
|
0 |
0 |
elsif ($type eq 'VSTRING') { } |
|
208
|
0 |
0 |
if ($ref) { } |
|
209
|
0 |
0 |
if ($class and $class eq 'Regexp') { } |
|
213
|
0 |
0 |
if ($v =~ /^\(\?\^?([msix-]*):([\x00-\xFF]*)\)\z/) |
|
221
|
0 |
0 |
if ($sep_count) |
|
226
|
0 |
0 |
if ($c < $sep_count) |
|
229
|
0 |
0 |
if $sep_count == 0 |
|
239
|
0 |
0 |
if $type eq "SCALAR" |
|
241
|
0 |
0 |
$class ? : |
|
244
|
0 |
0 |
if (not defined $$rval) { } |
|
|
0 |
0 |
elsif (do {
BEGIN {${^WARNING_BITS} = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x05\x00\x15\x14\x55\x55\x54\x55\x00\x00"}
$$rval + 0 eq $$rval
}) { } |
|
253
|
0 |
0 |
if ($class and not @$idx) |
|
263
|
0 |
0 |
if ($ref) { } |
|
267
|
0 |
0 |
if ($out =~ /^\\\*Symbol::/) |
|
277
|
0 |
0 |
unless defined $gval |
|
278
|
0 |
0 |
if $k eq "SCALAR" and not defined $$gval |
|
308
|
0 |
0 |
if ($hide_keys) |
|
311
|
0 |
0 |
if (defined $Data::Dump::IfSmall::SORT_KEYS) { } |
|
317
|
0 |
0 |
unless /^[-+]?(?:0|[1-9]\d*)(?:\.\d+)?\z/ |
|
320
|
0 |
0 |
if ($text_keys) { } |
|
330
|
0 |
0 |
if $key =~ /^-?[a-zA-Z_]\w*\z/ |
|
331
|
0 |
0 |
if $key =~ /^-?[1-9]\d{0,8}\z/ |
|
338
|
0 |
0 |
if $quote |
|
339
|
0 |
0 |
if length $key > $kstat_max |
|
349
|
0 |
0 |
if (length $tmp > 60 or $tmp =~ /\n/ or $tied) |
|
353
|
0 |
0 |
if ($kstat_max < 4) { } |
|
|
0 |
0 |
elsif (@keys >= 2) { } |
|
362
|
0 |
0 |
if ($stddev / $kstat_max < "0.25") |
|
365
|
0 |
0 |
if ($Data::Dump::IfSmall::DEBUG) |
|
374
|
0 |
0 |
if $tied |
|
378
|
0 |
0 |
$klen_pad ? : |
|
380
|
0 |
0 |
$nl ? : |
|
381
|
0 |
0 |
if $nl and $klen_pad > length $key |
|
384
|
0 |
0 |
unless $nl |
|
391
|
0 |
0 |
$ref ? : |
|
398
|
0 |
0 |
if ($class and $ref) |
|
401
|
0 |
0 |
if ($comment) |
|
403
|
0 |
0 |
unless $comment =~ /\n\z/ |
|
412
|
0 |
0 |
if ($tied) |
|
413
|
0 |
0 |
if (my $tied_ref = ref $tied) { } |
|
429
|
0 |
0 |
if ($ref and @i and $i[0] eq "\$") |
|
440
|
0 |
0 |
if ($i eq '*' or $i eq '$') { } |
|
|
0 |
0 |
elsif ($i =~ s/^\*//) { } |
|
447
|
0 |
0 |
unless $last_was_index++ |
|
451
|
0 |
0 |
if $ref |
|
459
|
0 |
0 |
$paren ? : |
|
460
|
0 |
0 |
if (@_ > 3) |
|
468
|
0 |
0 |
if ($v eq '0' or $v =~ /^-?[1-9]\d{0,9}\z/) { } |
|
|
0 |
0 |
elsif ($v =~ /^"([A-Za-z]{1,3}\d*)"\z/) { } |
|
479
|
0 |
0 |
if $_[$j] ne $v |
|
482
|
0 |
0 |
if ($j - $i > 3) |
|
489
|
0 |
0 |
if ($comment or @_ > $indent_lim and length $tmp > 60 || $tmp =~ /\n/) { } |
|
492
|
0 |
0 |
$comment ? : |
|
502
|
0 |
0 |
unless ($deparse) |
|
512
|
0 |
0 |
if ($Data::Dump::IfSmall::REMOVE_PRAGMAS) |
|
523
|
0 |
0 |
if (length $res <= 60) { } |
|
535
|
0 |
0 |
if (length $_[0] > 20) |
|
538
|
0 |
0 |
if (/^(.)\1\1\1/s) |
|
541
|
0 |
0 |
unless (/[^\Q$1\E]/) |
|
548
|
0 |
0 |
if (length $_ < 16384 and /^(.{2,5}?)\1*\z/s) |
|
558
|
0 |
0 |
if (length $_ > 40 and not /\\x\{/ and length $_ > length($_[0]) * 2) |
|
564
|
0 |
0 |
if ($Data::Dump::IfSmall::TRY_BASE64 and length $_[0] > $Data::Dump::IfSmall::TRY_BASE64 and (defined &utf8::is_utf8 and not utf8::is_utf8($_[0])) and eval {
do {
require MIME::Base64
}
}) |
|
594
|
0 |
0 |
unless /[^\040-\176]/ |