Branch Coverage

blib/lib/ChordPro/Output/Common.pm
Criterion Covered Total %
branch 43 68 63.2


line true false branch
25 0 2115 unless $s->{'meta'}
28 911 1204 if exists $m->{'key'}
29 115 796 if ($m->{'key'} and $m->{'capo'} and my $capo = $m->{'capo'}[-1])
39 2115 0 if ($main::config->{'instrument'})
45 2115 0 if ($main::config->{'user'})
56 19128 23172 if $v =~ /^(0|false|off)$/i
57 0 42300 if $v =~ /^(true|on)$/i
83 0 0 if $arg ne ""
93 0 0 unless &isroman($arg)
98 0 0 if $last_digit < $digit
107 0 32 unless 0 < $arg and $arg < 4000
111 32 96 if (1 <= $digit and $digit <= 3) { }
0 96 elsif ($digit == 4) { }
0 96 elsif ($digit == 5) { }
0 96 elsif (6 <= $digit and $digit <= 8) { }
0 96 elsif ($digit == 9) { }
144 0 37 unless $book and @$book
145 0 37 if $ctl->{'omit'}
149 64 0 /^[-+]*(.*)/ ? :
150 8 29 if (@fields == 1 and $fields[0] eq "songindex")
154 0 29 unless @fields
164 1 167 unless $meta->{$coreitem}
169 167 0 UNIVERSAL::isa($meta->{$coreitem}, 'ARRAY') ? :
172 9 158 if ($$meta{"sort$coreitem"})
173 6 3 if ($coreitem eq $item) { }
175 0 8 unless defined $s[$i][0]
181 0 4 unless defined $s[$i][0]
190 0 87 if (@split == 0) { }
245 171 8 if $addsort
246 87 92 if (@mm) { }
269 1 55 $rev =~ /-/ ? :
0 56 $num ? :
1 55 $rev =~ /-/ ? :
275 0 29 unless $srt = eval $srt