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
29 16 5 1 exists $args->{'key2pitch'} and exists $args->{'key_set'}
36 1 1 3 defined $args->{'key2pitch'} and ref $args->{'key2pitch'} eq 'HASH'
2 1 2 defined $args->{'key2pitch'} and ref $args->{'key2pitch'} eq 'HASH' and keys %{$$args{'key2pitch'}}
40 1 1 13 defined $set and ref $set eq 'HASH'
2 1 12 defined $set and ref $set eq 'HASH' and keys %$set
48 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'}}
52 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'}}
54 1 1 4 defined $set->{'min'} and $set->{'min'} =~ /^(?a)-?\d+$/u
56 1 1 2 defined $set->{'max'} and $set->{'max'} =~ /^(?a)-?\d+$/u
90 1 1 18 defined $sequence and ref $sequence eq 'ARRAY'
103 1 1 14 defined $key2pitch and ref $key2pitch eq 'HASH'
2 1 13 defined $key2pitch and ref $key2pitch eq 'HASH' and keys %$key2pitch
169 1 18 12 ref $possible[$i] eq 'ARRAY' and $possible[$i][0] == -1

or 2 conditions

line l !l condition
118 17 3 $key2pitch->{$s} // ''
216 1 1 $max_interval ||= 12

or 3 conditions

line l !l&&r !l&&!r condition
97 2 1 1 not defined $param{'renew'} or ref $param{'renew'} eq 'CODE'