| blib/lib/Const/Fast.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 18 | 88.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 28 | 27 | 2 | 26 | my $reftype = reftype($_[0]) and not blessed($_[0]) |
| 29 | 1 | 25 | my $reftype = reftype($_[0]) and not blessed($_[0]) and not &Internals::SvREADONLY($_[0]) | |
| 29 | 24 | 0 | 1 | not $dont_clone and &Internals::SvREFCNT($_[0]) > 1 |
| 24 | 0 | 1 | not $dont_clone and &Internals::SvREFCNT($_[0]) > 1 and not $skip{$reftype} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 31 | 6 | 8 | 11 | $reftype eq 'SCALAR' or $reftype eq 'REF' |
| 51 | 7 | 1 | 10 | reftype($_[0]) eq 'SCALAR' or reftype($_[0]) eq 'REF' |