Condition Coverage

blib/lib/Object/Adhoc.pm
Criterion Covered Total %
condition 6 10 60.0


or 2 conditions

line l !l condition
23 1 0 'Hash::Util'->can('lock_ref_keys') || sub { return; }
46 1 2 $keys ||= [keys %$data]

or 3 conditions

line l !l&&r !l&&!r condition
63 1 1 0 $RESERVED_REGEXP ||= do { my $re = join('|', map(quotemeta($_), @RESERVED_METHODS)); qr/\A(?:$re)\z/ }
74 0 0 3 not $key =~ /^[^\W0-9]\w*$/s or $key =~ /$RESERVED_REGEXP/