| line |
true |
false |
branch |
|
101
|
0 |
3 |
exists $opts{'verbose'} ? : |
|
126
|
0 |
8 |
unless int $time >= 0 |
|
128
|
0 |
8 |
if $text =~ / [\r\n] /msx |
|
144
|
0 |
4 |
if $name =~ / [:\r\n] /msx |
|
148
|
0 |
4 |
if $value =~ / [\r\n] /msx |
|
160
|
0 |
1 |
if $name =~ / [:\r\n] /msx |
|
162
|
0 |
1 |
unless exists $self->{'tags'}{$name} |
|
174
|
0 |
1 |
unless ref $fh eq 'GLOB' |
|
182
|
11 |
9 |
unless my(@vals) = $line =~ /$RE{$type}/ |
|
184
|
3 |
6 |
unless exists $parsers{$type} |
|
191
|
0 |
1 |
if $self->{'verbose'} |
|
195
|
0 |
1 |
unless eof $fh |
|
206
|
0 |
1 |
unless ref $fh eq 'GLOB' |
|
215
|
0 |
1 |
unless $lines += printf({$fh;} "[%s:%s]\n", $name, $value) |
|
228
|
0 |
2 |
unless $lines += printf({$fh;} "[%02u:%05.2f]%s\n", $min, $sec, $lyric->{'text'}) |