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 | 299 | 1 | $ddp->show_tied and my $tie = ref tied $$scalar_ref |
91 | 11 | 300 | 3 | $self->show_tainted and &Scalar::Util::tainted($$var) |
97 | 312 | 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/ |