Branch Coverage

lib/MARC/Loader.pm
Criterion Covered Total %
branch 45 68 66.1


line true false branch
12 0 0 if $DEBUG
24 1 0 if (defined $$data{'ldr'} and $$data{'ldr'} ne '')
27 0 1 if ($$data{'orderfields'})
30 0 1 if ($$data{'ordersubfields'})
33 1 0 if ($$data{'cleannsb'})
37 2 28 if ($k eq 'ldr' or $k eq 'orderfields' or $k eq 'ordersubfields' or $k eq 'cleannsb')
40 16 12 if (ref $$data{$k} eq 'ARRAY') { }
49 0 3 if ($orderfields) { }
56 22 0 if ($$bf{$k} == 1)
58 0 22 if ($orderfields) { }
77 25 17 if ($k =~ /^((.*)##)?(\D)(\d{3})(\w)$/) { }
17 0 elsif ($k =~ /^((.*)##)?(\D)(\d{3})$/ and ref $v eq 'HASH') { }
78 0 25 if $1
79 8 17 if (not exists $$lf{$prefield . $4}) { }
80 1 7 if ($4 < 10 and defined $v and $v ne '') { }
81 1 0 if $cleannsb
87 7 0 if (defined $v and $v ne '')
88 7 0 if $cleannsb
94 16 1 if (defined $v and $v ne '')
95 16 0 if $cleannsb
101 1 16 if $1
102 9 8 unless (exists $$cf{$prefield . $4})
106 2 15 if ($4 < 10) { }
108 2 0 if (defined $$v{$k} and $$v{$k} ne '')
109 2 0 if ($k =~ /^((.*)##)?(\D)(\d{3})(\w)$/) { }
110 2 0 if $cleannsb
124 1 45 if (defined $$v{$k} and $$v{$k} ne '' and ref $$v{$k} eq 'ARRAY') { }
43 2 elsif (defined $$v{$k} and $$v{$k} ne '') { }
126 2 0 if ($k =~ /^((.*)##)?(\D)(\d{3})(\w)$/) { }
127 2 0 if $cleannsb
135 43 0 if ($k =~ /^((.*)##)?(\D)(\d{3})(\w)$/) { }
136 43 0 if $cleannsb
156 4 64 if ($k =~ /^((.*)##)?(i)(\d{3})(\w)$/) { }
158 4 0 if ($5 =~ /1|2/ and $v =~ /\d|\|/) { }