Condition Coverage

File:C4/Labels/Label.pm
Coverage:10.0%

line%coveragecondition
760
Adec
00
11
shift @_ || 0
16767
ABdec
0X0
100
111
not $parts[-1] =~ /^.*\d-\d.*$/ and $parts[-1] =~ /^(.*\d+)(\D.*)$/
3080
ABdec
000
011
1X1
ref $invocant || $invocant
4120
ABCdec
0XX0
10X0
1100
1111
grep {$$field{'code'} =~ /$_/;} @callnumber_list and $$self{'printing_type'} eq 'BIB' and $$self{'callnum_split'}
4130
ABdec
000
011
1X1
$cn_source eq 'lcc' or $cn_source eq 'nlm'
4350
ABdec
0X0
100
111
$$field{'code'} eq 'title' and scalar @line >= 2