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