| blib/lib/Data/Printer/Filter/SCALAR.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 21 | 95.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 38 | 0 | 66 | 9 | not $numified and _is_number($value) |
| 39 | 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/ |
| 75 | 14 | 313 | 1 | $ddp->show_tied and my $tie = ref tied $$scalar_ref |
| 100 | 11 | 314 | 3 | $self->show_tainted and &Scalar::Util::tainted($$var) |
| 106 | 326 | 1 | 1 | $self->show_unicode and utf8::is_utf8($$var) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 39 | 3 | 3 | 3 | index("$numified", '.') != -1 && $value =~ /\A\s*${numified}[0]*\s*\z/ || index("$numified", '.') == -1 && $value =~ /\A\s*$numified(?:\.[0]*)?\s*\z/ |
| 202 | 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/ |