| 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) { } |