| line |
true |
false |
branch |
|
26
|
71 |
7 |
if -d "t" |
|
37
|
65 |
13 |
if (ref $got eq "HASH" and ref $expect eq "HASH") |
|
38
|
37 |
28 |
if $got->{'body'} |
|
41
|
65 |
0 |
unless exists $expect->{$_} |
|
43
|
63 |
2 |
if ($got->{'chordsinfo'}) |
|
44
|
29 |
34 |
if (not %{$got->{'chordsinfo'};} || $expect->{'chordsinfo'}) { } |
|
54
|
390 |
0 |
unless exists $expect->{'meta'}{$_} |
|
89
|
0 |
0 |
unless (open F1, $old) |
|
93
|
0 |
0 |
unless (open F2, $new) |
|
102
|
0 |
0 |
if $len1 == $len2 and $len1 == 0 |
|
103
|
0 |
0 |
if $len1 != $len2 or $len1 and $buf1 ne $buf2 |
|
111
|
0 |
79 |
unless $file2 |
|
116
|
0 |
79 |
@lines1 > @lines2 ? : |
|
118
|
2471 |
0 |
if $lines1[$line] eq $lines2[$line] |
|
124
|
79 |
0 |
if @lines1 == @lines2 |
|
138
|
113 |
39 |
if UNIVERSAL::can($_, "key") |
|
142
|
36 |
11 |
if UNIVERSAL::can($_, "key") |
|
146
|
31 |
105 |
if ($_->{'class'} eq 'chord') { } |
|
|
1 |
104 |
elsif ($_->{'class'} eq 'chords') { } |