| blib/lib/Data/Printer/Filter/SCALAR.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 21 | 95.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 29 | 0 | 59 | 8 | not $numified and _is_number($value) |
| 30 | 9 | 3 | 6 | $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 | 14 | 301 | 1 | $ddp->show_tied and my $tie = ref tied $$scalar_ref |
| 91 | 11 | 302 | 3 | $self->show_tainted and &Scalar::Util::tainted($$var) |
| 97 | 314 | 1 | 1 | $self->show_unicode and utf8::is_utf8($$var) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 30 | 3 | 3 | 3 | index("$numified", '.') != -1 && $value =~ /\A\s*${numified}[0]*\s*\z/ || index("$numified", '.') == -1 && $value =~ /\A\s*$numified(?:\.[0]*)?\s*\z/ |
| 200 | 6 | 12 | "$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/ |