| line |
true |
false |
branch |
|
21
|
314 |
0 |
ref $scalar_ref ? : |
|
23
|
19 |
295 |
if (not defined $value) { } |
|
|
285 |
10 |
elsif ($ddp->show_dualvar ne 'off') { } |
|
|
6 |
4 |
elsif (_is_number($value)) { } |
|
28
|
285 |
0 |
if defined $value |
|
29
|
218 |
67 |
if ($numified) { } |
|
|
8 |
59 |
elsif (not $numified and _is_number($value)) { } |
|
30
|
206 |
12 |
if ("$numified" eq $value or $ddp->show_dualvar eq 'lax' and index("$numified", '.') != -1 && $value =~ /\A\s*${numified}[0]*\s*\z/ || index("$numified", '.') == -1 && $value =~ /\A\s*$numified(?:\.[0]*)?\s*\z/) { } |
|
66
|
1 |
313 |
if ($ddp->show_tied and my $tie = ref tied $$scalar_ref) |
|
80
|
75 |
0 |
if (defined $scalar_quotes) |
|
82
|
0 |
75 |
if index($text, $scalar_quotes) >= 0 |
|
91
|
3 |
311 |
if $self->show_tainted and &Scalar::Util::tainted($$var) |
|
97
|
1 |
313 |
if $self->show_unicode and utf8::is_utf8($$var) |
|
107
|
0 |
77 |
if $maybe_a_number =~ /^-?0[0-9]/ |