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' ? : |