| line |
true |
false |
branch |
|
23
|
328 |
0 |
ref $scalar_ref ? :
|
|
25
|
21 |
307 |
if (not defined $value) { }
|
|
|
2 |
305 |
elsif (_is_bool($value)) { }
|
|
|
295 |
10 |
elsif ($ddp->show_dualvar ne 'off') { }
|
|
|
6 |
4 |
elsif (_is_number($value)) { }
|
|
29
|
1 |
1 |
if ($value) { }
|
|
37
|
295 |
0 |
if defined $value
|
|
38
|
220 |
75 |
if ($numified) { }
|
|
|
9 |
66 |
elsif (not $numified and _is_number($value)) { }
|
|
39
|
208 |
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/) { }
|
|
75
|
1 |
327 |
if ($ddp->show_tied and my $tie = ref tied $$scalar_ref)
|
|
89
|
82 |
0 |
if (defined $scalar_quotes)
|
|
91
|
0 |
82 |
if index($text, $scalar_quotes) != -1
|
|
100
|
3 |
325 |
if $self->show_tainted and &Scalar::Util::tainted($$var)
|
|
106
|
1 |
327 |
if $self->show_unicode and utf8::is_utf8($$var)
|
|
116
|
0 |
85 |
if $maybe_a_number =~ /^-?0[0-9]/
|