| blib/lib/Tie/RefHash/Weak.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 0 | 1061 | unless $objs |
| 46 | 2342 | 769 | if (ref $k) { } |
| 55 | 295 | 2047 | if (reftype $k eq 'CODE') { } |
| 56 | 0 | 295 | if (not svref_2object($k)->CvFLAGS & 64) { } |
| 59 | 135 | 160 | unless $objects = &getdata($k, $wiz) |
| 63 | 926 | 1121 | unless $objects = &getdata($k, $wiz) |
| 69 | 2085 | 257 | unless (grep {$_ == $s;} @$objects) |