| line |
true |
false |
branch |
|
49
|
16 |
1 |
unless /[^\040-\176]/
|
|
84
|
3 |
1 |
if ($OPT_REMOVE_PRAGMAS) { }
|
|
|
1 |
0 |
elsif ($OPT_PERL_VERSION < 5.016) { }
|
|
101
|
5 |
4 |
$_[0] =~ /\A-?[A-Za-z_][A-Za-z0-9_]*\z/ || $_[0] =~ /\A-?[1-9][0-9]{0,8}\z/ ? :
|
|
109
|
27 |
22 |
if ($ref eq "")
|
|
110
|
1 |
26 |
if (not defined $val) { }
|
|
|
15 |
11 |
elsif (&looks_like_number($val) and not $OPT_STRINGIFY_NUMBERS and $val eq $val + 0 and not $val =~ /\A-?(?:inf(?:inity)?|nan)\z/i) { }
|
|
129
|
3 |
19 |
if ($_seen_refaddrs{$refaddr}++)
|
|
131
|
0 |
3 |
$_subscripts{$refaddr} ? :
|
|
138
|
1 |
18 |
if ($ref eq "Regexp" or $ref eq "REGEXP")
|
|
144
|
2 |
16 |
if (&blessed($val))
|
|
150
|
4 |
14 |
if ($ref eq 'ARRAY') { }
|
|
|
5 |
9 |
elsif ($ref eq 'HASH') { }
|
|
|
3 |
6 |
elsif ($ref eq 'SCALAR') { }
|
|
|
1 |
5 |
elsif ($ref eq 'REF') { }
|
|
|
5 |
0 |
elsif ($ref eq 'CODE') { }
|
|
154
|
5 |
3 |
if $i
|
|
163
|
6 |
3 |
if $i++
|
|
170
|
1 |
2 |
if (defined $class) { }
|
|
178
|
4 |
1 |
$OPT_DEPARSE ? :
|
|
183
|
2 |
16 |
if defined $class
|
|
195
|
0 |
28 |
if (@_ > 1) { }
|
|
200
|
2 |
26 |
if (@_fixups)
|
|
204
|
2 |
26 |
if ($_is_ellipsis)
|
|
205
|
1 |
1 |
if length $res > $OPT_MAX_DUMP_LEN_BEFORE_ELLIPSIS
|
|
209
|
0 |
28 |
if ($_is_dd) { }
|
|
211
|
0 |
0 |
wantarray || @_ > 1 ? :
|