| line |
true |
false |
branch |
|
31
|
82 |
7 |
if -d "t" |
|
41
|
107 |
31 |
if (ref $got eq "HASH" and ref $expect eq "HASH") |
|
42
|
42 |
65 |
if $got->{'body'} |
|
45
|
214 |
0 |
unless exists $expect->{$_} |
|
47
|
89 |
18 |
if ($got->{'chordsinfo'}) |
|
48
|
51 |
38 |
if (not %{$got->{'chordsinfo'};} || $expect->{'chordsinfo'}) { } |
|
60
|
852 |
4 |
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 |
|
115
|
0 |
79 |
unless $file2 |
|
120
|
0 |
79 |
@lines1 > @lines2 ? : |
|
122
|
0 |
0 |
if $lines1[$line] eq $lines2[$line] |
|
128
|
79 |
0 |
if @lines1 == @lines2 |
|
142
|
157 |
34 |
if UNIVERSAL::can($_, "key") |
|
146
|
36 |
11 |
if UNIVERSAL::can($_, "key") |
|
150
|
31 |
105 |
if ($_->{'class'} eq 'chord') { } |
|
|
1 |
104 |
elsif ($_->{'class'} eq 'chords') { } |