Branch Coverage

blib/lib/App/Music/PlayTab/LyChord.pm
Criterion Covered Total %
branch 41 52 78.8


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'}