Branch Coverage

blib/lib/Data/Printer/Filter/SCALAR.pm
Criterion Covered Total %
branch 23 28 82.1


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]/