line |
true |
false |
branch |
24
|
0 |
132 |
unless ref $self |
27
|
0 |
132 |
if $chord =~ s/^\?// |
35
|
7 |
125 |
if ($chord =~ /(^[rs])(\d+\.*)?/) |
37
|
6 |
1 |
if (defined $2) |
50
|
125 |
0 |
if ($chord =~ /(^[a-g](?:es|is)?)(\d+\.*)?(?::(.*))?/) |
53
|
75 |
50 |
if (defined $2) |
64
|
0 |
125 |
unless defined $self->{'key'} |
82
|
3 |
55 |
if ($mod =~ /^maj7?(?:\.?(.*))?/) |
88
|
1 |
54 |
if ($mod =~ /^m(?:in)?7(?:\.?(.*))?/) |
96
|
36 |
18 |
if ($mod =~ /^m(?:\.?(.*))?/) |
106
|
1 |
17 |
if ($mod =~ /^sus2(?:\.(.*))?/) |
112
|
3 |
14 |
if ($mod =~ /^sus4?(?:\.(.*))?/) |
119
|
1 |
13 |
if ($mod =~ /^aug(?:\.?(.*))?/) |
125
|
1 |
12 |
if ($mod =~ /^dim(?:\.?(.*))?/) |
146
|
10 |
2 |
if ($mod =~ /^(2|5|6|7|9|10|11|13)([-+])?(?:\.(.*))?/) |
149
|
5 |
5 |
if ($1 > 7 and not vec($chflags, 7, 1)) |
153
|
3 |
7 |
if ($1 > 10 and not vec($chflags, 9, 1)) |
157
|
2 |
8 |
if ($1 > 11 and not vec($chflags, 11, 1)) |
163
|
1 |
9 |
if (defined $2) |
164
|
0 |
1 |
$2 eq '+' ? : |
168
|
2 |
0 |
if ($mod =~ /^\^(\d+)(?:\.(.*))?/) |
176
|
0 |
0 |
if ($mod =~ m[^/(.+)]) |
182
|
0 |
0 |
unless defined $p |
193
|
1348 |
277 |
unless vec $chflags, $_, 1 |
194
|
5 |
272 |
unless defined $chmods[$_] |
202
|
0 |
125 |
if $self->{'_debug'} |