Branch Coverage

blib/lib/App/Music/PlayTab/Chord.pm
Criterion Covered Total %
branch 114 132 86.3


line true false branch
28 0 343 unless ref $self
38 343 0 if ($chord =~ /(^[a-g*](\#|b|s(?!us)|es|is)?)(.*)/)
46 0 343 unless defined $self->{'key'}
68 11 88 if ($mod =~ /^[() ._](.*)/)
72 8 80 if ($mod =~ /^maj7?(.*)/)
78 7 73 if ($mod =~ /^(min|m)7(.*)/)
86 12 61 if ($mod =~ /^(min|m)(.*)/)
92 1 60 if ($mod =~ /^sus2(.*)/)
98 3 57 if ($mod =~ /^sus4?(.*)/)
105 2 55 if ($mod =~ /^aug(.*)/)
111 3 52 if ($mod =~ /^(o|dim)(.*)/)
121 6 46 if ($mod =~ /^%(.*)/)
132 36 10 if ($mod =~ /^([\#b])?(2|5|6|7|9|10|11|13)(.*)/)
135 14 22 if ($2 > 7 and not vec($chflags, 7, 1))
139 13 23 if ($2 > 10 and not vec($chflags, 9, 1))
143 8 28 if ($2 > 11 and not vec($chflags, 11, 1))
149 16 20 if (defined $1)
150 4 12 $1 eq '#' ? :
154 6 4 if ($mod =~ /^no\s*(\d+)(st|nd|rd|th)?(.*)/)
162 2 2 if ($mod =~ m[^\\([^/]+)(.*)])
168 0 2 unless defined $p
176 2 0 if ($mod =~ m[^/(.+)])
181 0 2 unless defined $p
192 3678 781 unless vec $chflags, $_, 1
193 9 772 unless defined $chmods[$_]
201 0 343 if $self->{'_debug'}
211 6 173 unless $xp
213 0 173 if ($self->{'bass'})
216 0 173 if ($self->{'high'})
230 295 47 if ($v =~ s/^0 (2 )?4 (6|7|8) / /) { }
4 43 elsif ($v =~ s/^0 3 6 9 / /) { }
27 16 elsif ($v =~ s/^0 (2 )?3 (6|7|8) / /) { }
231 3 292 $2 == 8 ? :
232 0 295 if $2 == 6
233 0 295 if defined $1
239 3 24 if ($2 == 6) { }
240 2 1 $v =~ s/^ 10 // ? :
245 0 27 if $2 == 8
246 2 25 if defined $1
258 14 328 if ($v =~ s/ 10 / /) { }
3 325 elsif ($v =~ s/^( \d| 10|) 11 / $1/) { }
264 6 336 if ($v =~ s/ 5 7 / /) { }
6 330 elsif ($v =~ s/^0 7 / /) { }
4 326 elsif ($v =~ s/^0 4 / /) { }
288 2 340 if $self->{'high'}
290 2 340 if $self->{'bass'}
295 0 342 if $self->{'_debug'}
322 167 82 if ($v =~ s/^0 (2 )?4 (6|7|8) / /) { }
4 78 elsif ($v =~ s/^0 3 6 9 / /) { }
62 16 elsif ($v =~ s/^0 (2 )?3 (6|7|8) / /) { }
323 3 164 $2 == 8 ? :
324 0 167 if $2 == 6
325 0 167 if defined $1
331 8 54 if ($2 == 6) { }
332 7 1 $v =~ s/^ 10 // ? :
337 0 62 if $2 == 8
338 2 60 if defined $1
350 31 218 if ($v =~ s/ 10 / /) { }
11 207 elsif ($v =~ s/^( \d| 10|) 11 / $1/) { }
354 0 11 if $res =~ / flat$/
357 6 243 if ($v =~ s/ 5 7 / /) { }
6 237 elsif ($v =~ s/^0 7 / /) { }
4 233 elsif ($v =~ s/^0 4 / /) { }
380 2 247 if ($self->{'high'})
386 2 247 if ($self->{'bass'})
395 0 249 if $self->{'_debug'}