| line |
true |
false |
branch |
|
53
|
0 |
0 |
unless /[^\040-\176]/ |
|
80
|
0 |
0 |
if ($OPT_REMOVE_PRAGMAS) { } |
|
|
0 |
0 |
elsif ($OPT_PERL_VERSION < 5.016) { } |
|
97
|
3 |
0 |
$_[0] =~ /\A-?[A-Za-z_][A-Za-z0-9_]*\z/ || $_[0] =~ /\A-?[1-9][0-9]{0,8}\z/ ? : |
|
105
|
9 |
4 |
if ($ref eq '') |
|
106
|
0 |
9 |
if (not defined $val) { } |
|
|
9 |
0 |
elsif (&looks_like_number($val) and not $OPT_STRINGIFY_NUMBERS and $val eq $val + 0 and not $val =~ /\A-?(?:inf(?:inity)?|nan)\z/i) { } |
|
125
|
0 |
4 |
if ($_seen_refaddrs{$refaddr}++) |
|
127
|
0 |
0 |
$_subscripts{$refaddr} ? : |
|
133
|
0 |
4 |
if ($ref eq 'Regexp' or $ref eq 'REGEXP') |
|
139
|
0 |
4 |
if (&blessed($val)) |
|
145
|
2 |
2 |
if ($ref eq 'ARRAY') { } |
|
|
2 |
0 |
elsif ($ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($ref eq 'REF') { } |
|
|
0 |
0 |
elsif ($ref eq 'CODE') { } |
|
150
|
6 |
2 |
if $i |
|
151
|
1 |
7 |
if ($_prune_paths{$elpath}) { } |
|
164
|
2 |
3 |
if $_prune_paths{$elpath} |
|
165
|
1 |
2 |
if $i++ |
|
176
|
0 |
0 |
$OPT_DEPARSE ? : |
|
181
|
0 |
4 |
if defined $class |
|
194
|
0 |
3 |
if (@_ > 1) { } |
|
199
|
0 |
3 |
if (@_fixups) |
|
203
|
0 |
3 |
if ($_is_ellipsis) |
|
204
|
0 |
0 |
if length $res > $OPT_MAX_DUMP_LEN_BEFORE_ELLIPSIS |
|
208
|
0 |
3 |
if ($_is_dd) { } |
|
210
|
0 |
0 |
wantarray || @_ > 1 ? : |