| blib/lib/Data/Clean.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 19 | 57.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 177 | 27 | 27 | 30 | $n && $which ne 'new_if' |
| 289 | 9 | 0 | 0 | $ENV{'LOG_CLEANSER_CODE'} and log_is_trace() |
| line | l | !l | condition |
|---|---|---|---|
| 96 | 2 | 0 | $args->[0] // 1 |
| 110 | 0 | 1 | $cd->{'subs'}{'unbless'} //= qq[ my \$ref = shift;\n\n my \$r = ref(\$ref);\n # not a reference\n return \$ref unless \$r;\n\n # return if not a blessed ref\n my (\$r2, \$r3) = "\$ref" =~ /(.+)=(.+?)\\(/\n or return \$ref;\n\n if (\$r3 eq 'HASH') {\n return { %\$ref };\n } elsif (\$r3 eq 'ARRAY') {\n return [ \@\$ref ];\n } elsif (\$r3 eq 'SCALAR') {\n return \\( my \$copy = \${\$ref} );\n } else {\n die "Can't handle \$ref";\n }\n] |
| 154 | 0 | 11 | $cd->{'modules'}{'Scalar::Util'} //= 0 |
| 161 | 0 | 11 | $cd->{'modules'}{$1} //= 0 |
| 292 | 0 | 0 | $ENV{'LINENUM'} // 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 169 | 16 | 12 | 2 | $which eq 'if' or $which eq 'new_if' |