| line |
true |
false |
branch |
|
49
|
15 |
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
|
26 |
21 |
if ($ref eq '') |
|
110
|
1 |
25 |
if (not defined $val) { } |
|
|
14 |
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 |
18 |
if ($_seen_refaddrs{$refaddr}++) |
|
131
|
0 |
3 |
$_subscripts{$refaddr} ? : |
|
138
|
1 |
17 |
if ($ref eq 'Regexp' or $ref eq 'REGEXP') |
|
144
|
1 |
16 |
if (&blessed($val)) |
|
150
|
4 |
13 |
if ($ref eq 'ARRAY') { } |
|
|
5 |
8 |
elsif ($ref eq 'HASH') { } |
|
|
2 |
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++ |
|
174
|
4 |
1 |
$OPT_DEPARSE ? : |
|
179
|
1 |
16 |
if defined $class |
|
191
|
0 |
27 |
if (@_ > 1) { } |
|
196
|
2 |
25 |
if (@_fixups) |
|
200
|
2 |
25 |
if ($_is_ellipsis) |
|
201
|
1 |
1 |
if length $res > $OPT_MAX_DUMP_LEN_BEFORE_ELLIPSIS |
|
205
|
0 |
27 |
if ($_is_dd) { } |
|
207
|
0 |
0 |
wantarray || @_ > 1 ? : |