| blib/lib/Data/Lock.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 2 | 46 | if $_[1] and &Internals::SvREADONLY(\$_[0]) == $locked |
| 23 | 6 | 40 | unless my $type = &Scalar::Util::reftype($_[0]) |
| 24 | 13 | 1 | $type ne 'CODE' ? : |
| 12 | 14 | $type eq 'HASH' ? : | |
| 14 | 26 | $type eq 'ARRAY' ? : | |
| 31 | 17 | 50 | if ref $_ |
| 36 | 13 | 1 | $type ne 'CODE' ? : |
| 12 | 14 | $type eq 'HASH' ? : | |
| 14 | 26 | $type eq 'ARRAY' ? : |