Branch Coverage

blib/lib/Music/Chord/Progression.pm
Criterion Covered Total %
branch 39 72 54.1


line true false branch
101 0 42 if exists $equiv{$_}
103 0 6 if $self->verbose
191 1 6 unless @{$self->chord_map;} == keys %{$self->net;}
193 0 6 if $self->verbose
202 0 6 if $self->verbose
206 1 5 if ($self->substitute)
209 7 0 $self->sub_cond->() ? :
210 0 0 if ($substitute eq $chord and $i < @progression and $self->sub_cond->())
217 0 6 if $self->verbose
221 0 6 if $self->verbose
231 1 5 if ($self->flat)
243 7 17 if $note =~ /#/
249 0 6 if $self->verbose
261 6 36 if ($n == 1) { }
6 30 elsif ($n == $self->max) { }
262 0 6 if ($self->tonic == 0) { }
6 0 elsif ($self->tonic == 1) { }
273 1 5 if ($self->resolve == 0) { }
5 0 elsif ($self->resolve == 1) { }
301 0 42 if ($n =~ /t/) { }
309 0 0 if $self->verbose
316 0 42 if $self->verbose
327 8 2 if ($chord eq '' or $chord eq 'm') { }
1 1 elsif ($chord eq 'dim' or $chord eq 'aug') { }
0 1 elsif ($chord eq '-5' or $chord eq '-9') { }
0 1 elsif ($chord eq 'M7') { }
1 0 elsif ($chord eq '7') { }
0 0 elsif ($chord eq 'm7') { }
329 7 1 $roll == 0 ? :
339 0 0 $roll == 1 ? :
0 0 $roll == 0 ? :
343 1 0 $roll == 1 ? :
0 1 $roll == 0 ? :
347 0 0 $roll == 1 ? :
0 0 $roll == 0 ? :
350 0 10 if $self->verbose and $substitute ne $chord