| line |
true |
false |
branch |
|
30
|
1 |
0 |
if (defined $filename) |
|
56
|
0 |
0 |
if ($newfilename) |
|
57
|
0 |
0 |
if ($newfilename ne $$self{'FILENAME'}) |
|
72
|
1 |
0 |
if (defined $filename) |
|
76
|
0 |
1 |
if $$self{'File_is_open'} |
|
79
|
0 |
1 |
unless open $fh, "<$$self{'FILENAME'}" |
|
89
|
0 |
1 |
if $$self{'Is_parsed'} |
|
91
|
0 |
1 |
unless $$self{'File_is_open'} |
|
118
|
2 |
27 |
if (/^X\:/) { } |
|
|
3 |
24 |
elsif (/^T\:/) { } |
|
|
2 |
22 |
elsif (/^R\:/) { } |
|
|
2 |
20 |
elsif (/^M\:/) { } |
|
120
|
0 |
2 |
unless defined $t[1] |
|
129
|
0 |
3 |
unless defined $t[1] |
|
139
|
0 |
0 |
if ($append eq '') { } |
|
155
|
0 |
2 |
unless defined $t[1] |
|
159
|
0 |
2 |
unless defined $t[1] |
|
164
|
2 |
27 |
if (/^%/) |
|
167
|
2 |
0 |
unless ($in_songs) |
|
173
|
27 |
2 |
if ($songnum) |
|
174
|
18 |
9 |
if (/^(.):/) { } |
|
177
|
14 |
4 |
if ($in_song or not $1 =~ /[MR]/) |
|
178
|
14 |
0 |
if $1 ne '|' |
|
181
|
2 |
7 |
unless ($in_song) |
|
211
|
0 |
1 |
unless $$self{'Is_parsed'} |
|
214
|
0 |
15 |
if /^[A-Z]:/ and $no_headers |
|
215
|
0 |
15 |
if /^[a-z]:/ and $no_headers |
|
220
|
0 |
1 |
if $@ |
|
229
|
0 |
1 |
unless $$self{'Is_parsed'} |
|
232
|
0 |
1 |
if $@ |
|
246
|
1 |
1 |
unless $$self{'Is_parsed'} |
|
267
|
0 |
1 |
unless $$self{'Is_parsed'} |
|
287
|
0 |
0 |
unless $$self{'Is_parsed'} |
|
295
|
1 |
0 |
if $$self{'File_is_open'} |