Branch Coverage

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


line true false branch
88 0 42 if exists $equiv{$_}
90 0 6 if $self->verbose
178 1 6 unless @{$self->chord_map;} == keys %{$self->net;}
180 0 6 if $self->verbose
189 0 6 if $self->verbose
193 1 5 if ($self->substitute)
196 7 0 $self->sub_cond->() ? :
197 0 0 if ($substitute eq $chord and $i < @progression and $self->sub_cond->())
204 0 6 if $self->verbose
208 0 6 if $self->verbose
218 1 5 if ($self->flat)
230 6 18 if $note =~ /#/
236 0 6 if $self->verbose
248 6 36 if ($n == 1) { }
6 30 elsif ($n == $self->max) { }
249 0 6 if ($self->tonic == 0) { }
6 0 elsif ($self->tonic == 1) { }
260 1 5 if ($self->resolve == 0) { }
5 0 elsif ($self->resolve == 1) { }
288 0 42 if ($n =~ /t/) { }
296 0 0 if $self->verbose
303 0 42 if $self->verbose
314 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') { }
316 1 7 $roll == 0 ? :
326 0 0 $roll == 1 ? :
0 0 $roll == 0 ? :
330 0 0 $roll == 1 ? :
1 0 $roll == 0 ? :
334 0 0 $roll == 1 ? :
0 0 $roll == 0 ? :
337 0 10 if $self->verbose and $substitute ne $chord