Condition Coverage

blib/lib/Music/Guidonian.pm
Criterion Covered Total %
condition 52 52 100.0


and 3 conditions

line !l l&&!r l&&r condition
28 16 4 1 exists $args->{'key2pitch'} and exists $args->{'key_set'}
35 1 1 2 defined $args->{'key2pitch'} and ref $args->{'key2pitch'} eq 'HASH'
2 1 1 defined $args->{'key2pitch'} and ref $args->{'key2pitch'} eq 'HASH' and keys %{$$args{'key2pitch'}}
39 1 1 13 defined $set and ref $set eq 'HASH'
2 1 12 defined $set and ref $set eq 'HASH' and keys %$set
47 1 1 10 defined $set->{'intervals'} and ref $set->{'intervals'} eq 'ARRAY'
2 1 9 defined $set->{'intervals'} and ref $set->{'intervals'} eq 'ARRAY' and @{$set->{'intervals'}}
51 1 1 7 defined $set->{'keys'} and ref $set->{'keys'} eq 'ARRAY'
2 1 6 defined $set->{'keys'} and ref $set->{'keys'} eq 'ARRAY' and @{$set->{'keys'}}
53 1 1 4 defined $set->{'min'} and $set->{'min'} =~ /^(?a)-?\d+$/u
55 1 1 2 defined $set->{'max'} and $set->{'max'} =~ /^(?a)-?\d+$/u
87 1 1 17 defined $sequence and ref $sequence eq 'ARRAY'
93 1 1 1 defined $param{'renew'} and ref $param{'renew'} eq 'CODE'
99 1 1 12 defined $key2pitch and ref $key2pitch eq 'HASH'
2 1 11 defined $key2pitch and ref $key2pitch eq 'HASH' and keys %$key2pitch
164 1 1 1 ref $possible[$i] eq 'ARRAY' and $possible[$i][0] == -1

or 2 conditions

line l !l condition
114 11 3 $key2pitch->{$s} // ''
204 1 1 $max_interval ||= 12