| line |
true |
false |
branch |
|
29
|
9 |
2 |
if (exists $args->{'pattern'} and exists $args->{'ttl'}) |
|
30
|
2 |
7 |
if $args->{'ttl'} < 1 |
|
34
|
2 |
4 |
unless defined $args->{'pattern'} and ref $args->{'pattern'} eq "ARRAY" and @{$args->{'pattern'}} |
|
54
|
22 |
14 |
if ($ttl <= 0) |
|
57
|
2 |
20 |
unless defined $next and ref $next eq "CODE" |
|
65
|
2 |
17 |
unless defined $param{'pattern'} and ref $param{'pattern'} eq "ARRAY" and @{$param{'pattern'}} |
|
66
|
1 |
16 |
if $ttl < 1 |
|
105
|
6 |
4 |
if (defined $pat) |
|
106
|
2 |
4 |
unless ref $pat eq "ARRAY" and @$pat |
|
111
|
7 |
1 |
if (defined $ref) |
|
112
|
1 |
6 |
unless ref $ref eq "ARRAY" |
|
114
|
1 |
5 |
unless ref $ref->[0] eq "ARRAY" |
|
124
|
2 |
9 |
unless defined $str and length $str |
|
127
|
2 |
7 |
if ($param{'sep'}) { } |
|
137
|
4 |
18 |
if $line =~ /^\s*(?:#|$)/u |
|
141
|
14 |
4 |
if ($line =~ /^
(?\d{1,10}) $param{'sep'}
(?.*?) $param{'sep'}
(?[x.]{1,256}) $param{'sep'}
(?\d{1,5}) \s*(?:[#].*)?
$/ax) { } |
|
168
|
2 |
7 |
unless defined $replay and ref $replay eq "ARRAY" and @$replay |
|
183
|
3 |
7 |
if $ttl > $maxm |
|
186
|
2 |
8 |
if ($param{'time'}) |
|
191
|
16 |
10 |
if ($x == 1) { } |
|
200
|
6 |
4 |
if $maxm <= 0 |
|
209
|
2 |
12 |
unless defined $replay and ref $replay eq "ARRAY" and @$replay |
|
229
|
5 |
7 |
length $id ? : |
|
231
|
1 |
11 |
if ($param{'patch_change'}) |
|
237
|
5 |
14 |
if $ttl > $maxm |
|
248
|
26 |
20 |
if ($x == 1) { } |
|
250
|
11 |
15 |
if (defined $open) |
|
258
|
7 |
13 |
if (defined $open) |
|
266
|
8 |
11 |
if (defined $open) |
|
277
|
3 |
16 |
if ($delay and $onsets and $ttl > 1) { } |
|
281
|
1 |
2 |
if ($param{'embig'}) { } |
|
287
|
2 |
14 |
if ($param{'embig'}) { } |
|
298
|
4 |
15 |
unless $onsets |
|
301
|
9 |
10 |
if $maxm <= 0 |
|
313
|
3 |
9 |
if ($param{'sustain'} or $param{'notext'}) |
|
316
|
10 |
26 |
if ($param{'sustain'} and $events->[$i][0] eq 'note_off') { } |
|
|
2 |
39 |
elsif ($param{'notext'} and $events->[$i][0] eq 'text_event') { } |
|
322
|
1 |
11 |
if ($events->[$j][0] eq 'text_event' and $events->[$j][1] > 0) { } |
|
|
9 |
2 |
elsif ($events->[$j][0] eq 'note_on') { } |
|
326
|
4 |
5 |
if ($events->[$j][1] > 0) |
|
333
|
1 |
2 |
if ++$j > $#$events |
|
349
|
2 |
1 |
if $param{'notext'} |
|
368
|
2 |
7 |
unless defined $replay and ref $replay eq "ARRAY" and @$replay |
|
385
|
3 |
9 |
if $ttl > $maxm |
|
392
|
5 |
7 |
if $maxm <= 0 |