Condition Coverage

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


or 2 conditions

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

or 3 conditions

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