| line |
true |
false |
branch |
|
48
|
0 |
0 |
unless /[^\040-\176]/ |
|
83
|
0 |
0 |
if ($OPT_REMOVE_PRAGMAS) { } |
|
|
0 |
0 |
elsif ($OPT_PERL_VERSION < 5.016) { } |
|
100
|
0 |
0 |
$_[0] =~ /\A-?[A-Za-z_][A-Za-z0-9_]*\z/ || $_[0] =~ /\A-?[1-9][0-9]{0,8}\z/ ? : |
|
108
|
0 |
0 |
if ($ref eq "") |
|
109
|
0 |
0 |
if (not defined $val) { } |
|
|
0 |
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) { } |
|
128
|
0 |
0 |
if ($_seen_refaddrs{$refaddr}++) |
|
130
|
0 |
0 |
$_subscripts{$refaddr} ? : |
|
137
|
0 |
0 |
if ($ref eq "Regexp" or $ref eq "REGEXP") |
|
143
|
0 |
0 |
if (builtin::blessed($val)) |
|
149
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'HASH') { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($ref eq 'REF') { } |
|
|
0 |
0 |
elsif ($ref eq 'CODE') { } |
|
153
|
0 |
0 |
if $i |
|
162
|
0 |
0 |
if $i |
|
170
|
0 |
0 |
if (defined $class) { } |
|
178
|
0 |
0 |
$OPT_DEPARSE ? : |
|
183
|
0 |
0 |
if defined $class |
|
195
|
0 |
0 |
if (@_ > 1) { } |
|
200
|
0 |
0 |
if (@_fixups) |
|
205
|
0 |
0 |
if ($_is_dd) { } |
|
207
|
0 |
0 |
wantarray || @_ > 1 ? : |