| line |
true |
false |
branch |
|
42
|
0 |
1 |
unless open my $fh, '<', $self->key_title |
|
47
|
4 |
60 |
if $line =~ /^\s*$/ or $line =~ /^#/ |
|
59
|
0 |
1 |
unless my $csv = 'Text::CSV'->new({'binary', 1}) |
|
62
|
0 |
1 |
unless open $fh, '<', $self->data_file |
|
75
|
18627 |
49353 |
$row->[$note] eq 'YES' ? : |
|
96
|
0 |
1 |
unless $csv->eof |
|
110
|
26 |
37 |
if ($args{'id'}) |
|
118
|
12 |
51 |
if ($args{'key'}) |
|
119
|
5 |
7 |
keys %results ? : |
|
124
|
7 |
420 |
if ($results{$id}) { } |
|
126
|
2 |
5 |
unless &any(sub {
$_ eq $results{$id}{'key'};
}
, @keys) |
|
130
|
80 |
340 |
if &any(sub {
$_ eq $self->data->{$id}{'key'};
}
, @keys) |
|
135
|
8 |
55 |
if ($args{'bass'}) |
|
139
|
8 |
55 |
if ($args{'chord'}) |
|
143
|
27 |
36 |
if ($args{'notes'}) |
|
144
|
11 |
16 |
keys %results ? : |
|
146
|
9 |
18 |
$args{'notes'} =~ /&/ ? : |
|
147
|
9 |
18 |
$and ? : |
|
182
|
303415 |
803213 |
if ($bit) |
|
184
|
49038 |
481552 |
if (defined $index{$note} and $i == $index{$note}) |
|
185
|
20572 |
28466 |
if ($and) { } |
|
199
|
305 |
667 |
if ($and) { } |
|
200
|
292 |
13 |
if (keys %and_notes) |
|
208
|
547 |
0 |
if exists $notes{$n} |
|
211
|
198 |
94 |
if ($i == scalar keys %notes) { } |
|
216
|
2 |
92 |
if $results{$id} |
|
221
|
2 |
665 |
if ($results{$id} and $match <= 0) { } |
|
|
547 |
118 |
elsif ($match > 0) { } |
|
250
|
21 |
219 |
if ($bit) |
|
254
|
12 |
9 |
if (@note > 1) { } |
|
255
|
6 |
6 |
$accidental eq '#' ? : |
|
273
|
8 |
8 |
keys %$seen ? : |
|
277
|
4 |
12 |
$param =~ /&/ ? : |
|
278
|
4 |
12 |
$and ? : |
|
290
|
3516 |
66408 |
if ($note eq $event->{$name}) |
|
291
|
1172 |
2344 |
if ($and) { } |
|
301
|
122 |
366 |
if ($and) { } |
|
302
|
86 |
36 |
if (keys %and_notes) |
|
307
|
86 |
0 |
if exists $notes{$n} |
|
310
|
0 |
86 |
if ($i == scalar keys %notes) { } |
|
315
|
0 |
86 |
if $results{$id} |
|
320
|
0 |
366 |
if ($results{$id} and $match <= 0) { } |
|
|
172 |
194 |
elsif ($match > 0) { } |