| line |
l |
!l&&r |
!l&&!r |
condition |
|
24
|
4 |
0 |
0 |
'Hash::Util'->can('lock_ref_keys') || sub {
return;
}
|
|
50
|
1 |
10 |
0 |
$keys ||= delete $opts{'keys'} || [keys %$data] |
|
53
|
0 |
0 |
7 |
ref $opts{'recurse'} or not $opts{'recurse'} =~ /\A[0-9]+\z/ |
|
69
|
3 |
0 |
11 |
$lvl < 1 or not $reftype |
|
|
3 |
0 |
11 |
$lvl < 1 or not $reftype or exists $seen{builtin::refaddr($ref)} |
|
116
|
5 |
4 |
0 |
$RESERVED_REGEXP ||= do {
my $re = join("|", map(quotemeta($_), @RESERVED_METHODS));
qr/\A(?:$re)\z/
} |
|
127
|
0 |
0 |
17 |
not $key =~ /^[^\W0-9]\w*$/s or $key =~ /$RESERVED_REGEXP/ |
|
172
|
0 |
2 |
0 |
ref $class || $class |