| 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') { } |