Branch Coverage

lib/ChordPro/Output/Common.pm
Criterion Covered Total %
branch 48 74 64.8


line true false branch
26 0 2406 unless $s->{'meta'}
29 1029 1377 if exists $m->{'key'}
30 115 914 if ($m->{'key'} and $m->{'capo'} and my $capo = $m->{'capo'}[-1])
36 30 2376 if $main::config->{'settings'}{'decapo'}
41 2406 0 if ($main::config->{'instrument'})
47 2406 0 if ($main::config->{'user'})
59 26748 28590 if $v =~ /^(0|false|off)$/i
60 13831 41507 if $v =~ /^(true|on)$/i
87 0 0 if $arg ne ""
97 0 0 unless &isroman($arg)
102 0 0 if $last_digit < $digit
111 0 32 unless 0 < $arg and $arg < 4000
115 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) { }
149 0 111 if exists $meta->{'_TOC'}
158 0 37 unless $book and @$book
159 0 37 if $ctl->{'omit'}
163 64 0 if (/^[-+]*(.*)/) { }
164 8 29 if (@fields == 1 and $fields[0] eq "songindex")
169 0 29 unless @fields
174 0 87 if _suppresstoc($meta)
180 1 167 unless $meta->{$coreitem}
185 167 0 is_arrayref($meta->{$coreitem}) ? :
188 9 158 if ($$meta{"sort$coreitem"})
189 6 3 if ($coreitem eq $item) { }
191 0 8 unless defined $s[$i][0]
197 0 4 unless defined $s[$i][0]
206 0 87 if (@split == 0) { }
261 171 8 if $addsort
262 87 92 if (@mm) { }
286 1 55 $rev =~ /-/ ? :
290 0 56 $num ? :
295 0 29 unless $srt = eval $srt
302 117 77 index($_, 'sort') && is_arrayref($t->{'meta'}{"sort$_"}) ? :