Branch Coverage

blib/lib/Music/Chord/Progression.pm
Criterion Covered Total %
branch 38 72 52.7


line true false branch
102 0 42 if exists $equiv{$_}
104 0 6 if $self->verbose
192 1 6 unless @{$self->chord_map;} == keys %{$self->net;}
194 0 6 if $self->verbose
203 0 6 if $self->verbose
207 1 5 if ($self->substitute)
210 7 0 $self->sub_cond->() ? :
211 0 0 if ($substitute eq $chord and $i < @progression and $self->sub_cond->())
218 0 6 if $self->verbose
222 0 6 if $self->verbose
232 1 5 if ($self->flat)
244 7 17 if $note =~ /#/
250 0 6 if $self->verbose
262 6 36 if ($n == 1) { }
6 30 elsif ($n == $self->max) { }
263 0 6 if ($self->tonic == 0) { }
6 0 elsif ($self->tonic == 1) { }
274 1 5 if ($self->resolve == 0) { }
5 0 elsif ($self->resolve == 1) { }
302 0 42 if ($n =~ /t/) { }
310 0 0 if $self->verbose
317 0 42 if $self->verbose
328 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') { }
330 4 4 $roll == 0 ? :
340 0 0 $roll == 1 ? :
0 0 $roll == 0 ? :
344 0 0 $roll == 1 ? :
1 0 $roll == 0 ? :
348 0 0 $roll == 1 ? :
0 0 $roll == 0 ? :
351 0 10 if $self->verbose and $substitute ne $chord