Branch Coverage

blib/lib/Music/AtonalUtil.pm

Criterion	Covered	Total	%
branch	274	328	83.5

line	true	false	branch
505	2	6	if $note_count < @$check_set
508	0	8	if @$check_set > @$melody
514	1	18	if $flag_sort
515	4	15	if (join($", @$sel_audit) eq join($", @$check_set))
519	2	13	if ($note_count > @$check_set)
521	0	7	if $i + $count - 1 > $#$melody
528	0	64	if $flag_sort
529	2	62	if (join($", @$sel_audit) eq join($", @$check_set))
546	5	3	ref $_[0] eq 'ARRAY' ? :
549	1	7	if @nset < 2
556	7	0	if (@nset > 2)
566	1	6	wantarray ? :
587	3	9	if $bs & 1 << $p
598	6	1	ref $_[0] eq 'ARRAY' ? :
609	1	6	if (exists $params->{'dup_interval_limit'})
611	1	0	if ($icount >= $params->{'dup_interval_limit'})
612	1	0	wantarray ? :
618	3	3	unless $params->{'exclude_interval'}
621	0	3	if not exists $ruleset->{'iset'} or ref $ruleset->{'iset'} ne "ARRAY"
622	0	3	if @{$ruleset->{'iset'};} > @intervals
631	1	2	$ruleset->{'sort'} ? :
633	3	0	if ($ret != 1)
634	3	0	wantarray ? :
644	1	3	unless $params->{$ps_rule}
647	0	3	if not exists $ruleset->{'ps'} or ref $ruleset->{'ps'} ne "ARRAY"
655	2	1	unless $ruleset->{'subsets'}
657	0	2	if $ss_mag >= @{$ruleset->{'ps'};}
660	2	0	if $in_ss < @{$ruleset->{'ps'};}
664	1	1	if $in_ss > @$melody
670	0	3	if $seen_s_pset{join $", @$s_prime}++
674	1	2	if ($ret != 1)
675	1	0	wantarray ? :
684	2	0	if ($ret != 1)
685	2	0	wantarray ? :
692	0	0	if ($rules_applied == 0)
693	0	0	wantarray ? :
695	0	0	wantarray ? :
700	472	2	ref $_[0] eq 'ARRAY' ? :
701	1	473	unless @$pset
714	1	1	ref $_[0] eq 'ARRAY' ? :
741	0	0	unless (keys %params)
778	0	0	if ($base_pitch == $p)
787	0	0	if $choice < $melody_low
788	0	0	if $choice > $melody_high
792	0	0	if ($melody_low < 0)
798	0	0	if $got_melody != 1
803	0	0	if $@
804	0	0	unless $got_melody
813	4	4	ref $_[0] eq 'ARRAY' ? :
815	1	7	unless @$pset
821	0	7	if (keys %origmap == 1)
822	0	0	wantarray ? :
842	12	9	if ($span < $min_span) { }
	0	9	elsif ($span == $min_span) { }
850	7	0	if (@min_span_idx == 1) { }
858	0	7	unless (@normal)
867	6	1	if ($normal[0] != 0)
878	1	6	wantarray ? :
883	5	2	ref $_[0] eq 'ARRAY' ? :
886	1	6	if @nset < 2
904	1	5	wantarray ? :
910	2	2	ref $_[0] eq 'ARRAY' ? :
911	1	3	unless @$iset
926	1	2	ref $_[0] eq 'ARRAY' ? :
927	1	2	unless @$pset
942	252	2	ref $_[0] eq 'ARRAY' ? :
943	1	253	unless @$pset
960	2	5	if not defined $pset or ref $pset ne "ARRAY"
964	1	4	unless @$pset
967	1	3	unless &looks_like_number($n)
970	1	2	if $len > $n
979	1	8	unless &looks_like_number($from)
980	1	7	unless &looks_like_number($to)
985	3	4	if ($from > $to)
990	4	3	if ($interval > $self->{'_DEG_IN_SCALE'} / 2)
1002	1	2	ref $_[0] eq 'ARRAY' ? :
1003	1	2	unless @$pset
1020	2	2	if not defined $ref or ref $ref ne "ARRAY"
1028	2	6	if not defined $ref or ref $ref ne "ARRAY"
1029	2	4	if not &looks_like_number($count) or $count < 0
1032	2	2	if @$ref == 0 or $count == 0
1047	2	3	if not defined $ref or ref $ref ne "ARRAY"
1056	2	1	if not defined $ref or ref $ref ne "ARRAY"
1063	2	2	if not defined $ref or ref $ref ne "ARRAY"
1064	1	1	unless &looks_like_number($i)
1072	2	2	if not defined $ref or ref $ref ne "ARRAY"
1083	1	6	if ($self->{'_DEG_IN_SCALE'} < 2)
1087	2	4	if (exists $param{'lastn'}) { }
1089	1	1	unless &looks_like_number($param{'lastn'})
1104	470	2	ref $_[0] eq 'ARRAY' ? :
1106	1	471	unless @$pset
1112	0	471	if (keys %origmap == 1)
1113	0	0	wantarray ? :
1132	1065	2386	if ($span < $min_span) { }
	516	1870	elsif ($span == $min_span) { }
1140	446	315	if (@min_span_idx == 1) { }
1148	25	446	unless (@normal)
1156	5	466	wantarray ? :
1164	2	2	ref $_[0] eq 'ARRAY' ? :
1166	1	3	unless @$pset
1177	4	2	ref $_[0] eq 'ARRAY' ? :
1179	1	5	unless @$pset
1186	1	0	ref $_[0] eq 'ARRAY' ? :
1188	0	1	if @$pset < 2
1200	1	3	unless defined $_[0]
1203	1	2	if (ref $_[0] eq 'ARRAY') { }
	1	1	elsif ($_[0] =~ /,/) { }
1220	11	45	$pitch > int $self->{'_DEG_IN_SCALE'} / 2 ? :
1228	232	2	ref $_[0] eq 'ARRAY' ? :
1230	1	233	unless @$pset
1236	239	227	if $set->[0] != 0
1241	90	143	if (join($", @{$forms[0];}) eq join($", @{$forms[1];})) { }
1251	136	213	if ($sums[0] < $sums[1]) { }
	7	206	elsif ($sums[0] > $sums[1]) { }
1269	1	24	unless &looks_like_number($v)
1270	3	21	if not &looks_like_number($min) && &looks_like_number($max) or $min >= $max
1274	4	17	if $v <= $max and $v >= $min
1277	5	12	if ($v > $max) { }
1288	9	8	if ($register % 2 == 1)
1299	1	2	ref $_[0] eq 'ARRAY' ? :
1301	1	2	unless @$pset
1309	6	4	ref $_[0] eq 'ARRAY' ? :
1311	2	8	unless defined $r and $r =~ /^-?\d+$/
1314	1	7	unless @$pset
1317	1	6	if ($r == 0) { }
1335	3	3	ref $_[0] eq 'ARRAY' ? :
1337	1	5	unless defined $what
1338	1	4	unless @$pset
1343	1	3	if $dir < 0
1346	9	3	unless $pset->[$i] eq $what
1356	4	5	if (defined $dis)
1357	2	2	if not $dis =~ /^\d+$/ or $dis < 2
1367	1	2	ref $_[0] eq 'ARRAY' ? :
1369	1	2	unless @$pset
1377	22	242	if ($j == 0) { }
1391	2	6	ref $_[0] eq 'ARRAY' ? :
1394	1	7	if @nset < 2
1396	6	1	if (defined $len) { }
1397	2	4	if $len >= @nset or $len == 0
1400	1	3	if ($len < 0)
1402	1	0	if $len < 1
1413	1	0	ref $_[0] eq 'ARRAY' ? :
1415	0	1	unless @$pset
1424	16	32	if exists $seen{$p}
1432	0	2	ref $_[0] eq 'ARRAY' ? :
1434	1	1	unless @$pset
1443	12	32	if exists $seen{$p}
1452	251	3	ref $_[0] eq 'ARRAY' ? :
1454	1	253	unless defined $t
1455	1	252	unless @tset
1468	13	4	ref $_[0] eq 'ARRAY' ? :
1470	1	16	unless defined $t
1471	1	15	unless @$pset
1486	1	5	unless ref $pset1 eq "ARRAY"
1487	1	4	unless @$pset1
1488	1	3	unless ref $pset2 eq "ARRAY"
1489	1	2	unless @$pset2
1497	4	8	$count{$p} > 1 ? :
1499	1	1	wantarray ? :
1505	1	5	unless ref $pset1 eq "ARRAY"
1506	1	4	unless @$pset1
1507	1	3	unless ref $pset2 eq "ARRAY"
1508	1	2	unless @$pset2
1514	1	1	join($", @{$ic_vecs[0];}) eq join($", @{$ic_vecs[1];}) ? :