Branch Coverage

blib/lib/Music/BachChoralHarmony.pm
Criterion Covered Total %
branch 77 86 89.5


line true false branch
43 0 1 unless open my $fh, "<", $self->key_title
48 4 60 if $line =~ /^\s*$/ or $line =~ /^#/
60 0 1 unless my $csv = "Text::CSV"->new({"binary", 1})
63 0 1 unless open $fh, "<", $self->data_file
76 18627 49353 $row->[$note] eq 'YES' ? :
97 0 1 unless $csv->eof
111 26 37 if ($args{'id'})
119 12 51 if ($args{'key'})
120 5 7 keys %results ? :
125 7 420 if ($results{$id}) { }
127 2 5 unless &any(sub { $_ eq $results{$id}{'key'}; } , @keys)
131 80 340 if &any(sub { $_ eq $self->data->{$id}{'key'}; } , @keys)
136 8 55 if ($args{'bass'})
140 8 55 if ($args{'chord'})
144 27 36 if ($args{'notes'})
145 11 16 keys %results ? :
147 9 18 $args{'notes'} =~ /&/ ? :
148 9 18 $and ? :
183 303415 803213 if ($bit)
185 49038 481552 if (defined $index{$note} and $i == $index{$note})
186 20572 28466 if ($and) { }
200 305 667 if ($and) { }
201 292 13 if (keys %and_notes)
209 547 0 if exists $notes{$n}
212 198 94 if ($i == scalar keys %notes) { }
217 2 92 if $results{$id}
222 2 665 if ($results{$id} and $match <= 0) { }
547 118 elsif ($match > 0) { }
251 21 219 if ($bit)
255 12 9 if (@note > 1) { }
256 6 6 $accidental eq '#' ? :
274 8 8 keys %$seen ? :
278 4 12 $param =~ /&/ ? :
279 4 12 $and ? :
291 3516 66408 if ($note eq $event->{$name})
292 1172 2344 if ($and) { }
302 122 366 if ($and) { }
303 86 36 if (keys %and_notes)
308 86 0 if exists $notes{$n}
311 0 86 if ($i == scalar keys %notes) { }
316 0 86 if $results{$id}
321 0 366 if ($results{$id} and $match <= 0) { }
172 194 elsif ($match > 0) { }