line |
true |
false |
branch |
32
|
73 |
7 |
if -d "t" |
43
|
66 |
13 |
if (ref $got eq "HASH" and ref $expect eq "HASH") |
44
|
38 |
28 |
if $got->{'body'} |
47
|
66 |
0 |
unless exists $expect->{$_} |
49
|
64 |
2 |
if ($got->{'chordsinfo'}) |
50
|
30 |
34 |
if (not %{$got->{'chordsinfo'};} || $expect->{'chordsinfo'}) { } |
60
|
396 |
0 |
unless exists $expect->{'meta'}{$_} |
95
|
0 |
0 |
unless (open F1, $old) |
99
|
0 |
0 |
unless (open F2, $new) |
108
|
0 |
0 |
if $len1 == $len2 and $len1 == 0 |
109
|
0 |
0 |
if $len1 != $len2 or $len1 and $buf1 ne $buf2 |
117
|
0 |
79 |
unless $file2 |
122
|
0 |
79 |
@lines1 > @lines2 ? : |
124
|
2471 |
0 |
if $lines1[$line] eq $lines2[$line] |
130
|
79 |
0 |
if @lines1 == @lines2 |
144
|
113 |
39 |
if UNIVERSAL::can($_, "key") |
148
|
36 |
11 |
if UNIVERSAL::can($_, "key") |
152
|
31 |
105 |
if ($_->{'class'} eq 'chord') { } |
|
1 |
104 |
elsif ($_->{'class'} eq 'chords') { } |