Condition Coverage

blib/lib/MARC/Field.pm
Criterion Covered Total %
condition 34 39 87.1


and 3 conditions

line !l l&&!r l&&r condition
187 0 1 4 defined $indno and $indno =~ /^[12]$/
240 0 2 4755 defined $tag and $tag =~ /^[0-9A-Za-z]{3}$/
253 0 53 7710 defined $indval and $indval =~ /^[0-9A-Za-z ]$/
268 7 5899 1434 $tag =~ /^\d+$/ and $tag < 10
447 11 3 1 $match and ref $match ne 'Regexp'
462 11 25 0 @$codes == 0 || grep({ref $_ ne 'Regexp' and $_ eq $subfield_code unless ref $_ eq 'Regexp' and $subfield_code =~ /$_/;} @$codes) and !$match || $subfield_value =~ /$match/
5 20 0 @$codes == 0 || grep({ref $_ ne 'Regexp' and $_ eq $subfield_code unless ref $_ eq 'Regexp' and $subfield_code =~ /$_/;} @$codes) and !$match || $subfield_value =~ /$match/ and @$positions == 0 || grep({$_ == $subfield_num;} @$positions)

or 3 conditions

line l !l&&r !l&&!r condition
450 3 7 4 $match or @$codes > 0
10 2 2 $match or @$codes > 0 or @$positions > 0
462 10 15 11 @$codes == 0 || grep({ref $_ ne 'Regexp' and $_ eq $subfield_code unless ref $_ eq 'Regexp' and $subfield_code =~ /$_/;} @$codes)
17 3 5 !$match || $subfield_value =~ /$match/
11 5 4 @$positions == 0 || grep({$_ == $subfield_num;} @$positions)
643 82 23 10 not defined $subfields or $code =~ /^[$subfields]$/