| line |
true |
false |
branch |
|
40
|
0 |
87 |
unless -f $filename or -c $filename |
|
49
|
0 |
81 |
if (exists $self->{'FH'} and defined $self->{'FH'}) |
|
61
|
99 |
171 |
if (defined $mode and $mode =~ /w/i) { } |
|
66
|
270 |
0 |
unless (exists $self->{'FH'}) |
|
68
|
270 |
0 |
if (sysopen FH, $self->filename, $mode) { } |
|
81
|
265 |
65 |
if (exists $self->{'FH'}) |
|
89
|
66 |
0 |
if (exists $self->{'FH'}) |
|
97
|
0 |
0 |
if ($length < 0) |
|
101
|
0 |
0 |
if (exists $self->{'FH'}) |
|
108
|
44 |
0 |
if exists $self->{'FH'} |
|
114
|
0 |
301 |
unless exists $self->{'FH'} |
|
120
|
0 |
44 |
unless exists $self->{'FH'} |
|
126
|
0 |
343 |
unless exists $self->{'FH'} |
|
144
|
0 |
0 |
unless $start |
|
146
|
0 |
0 |
if (exists $self->{'mp3header'}) |
|
155
|
0 |
0 |
unless $nextdata |
|
157
|
0 |
0 |
if ($data =~ /(\xFF[\xE0-\xFF]..)/) |
|
167
|
0 |
0 |
if length $bits > $_ |
|
230
|
136 |
0 |
if (defined $what) |
|
231
|
27 |
109 |
if $what =~ /^al/i |
|
232
|
24 |
85 |
if $what =~ /^a/i |
|
233
|
32 |
53 |
if $what =~ /^tr/i |
|
234
|
36 |
17 |
if $what =~ /^y/i |
|
238
|
0 |
0 |
unless wantarray |
|
244
|
80 |
0 |
unless (defined $filename) |
|
247
|
0 |
0 |
if ($e = $self->get_config('decode_encoding_filename') and $e->[0]) |
|
255
|
56 |
24 |
if exists $self->{'parsed_filename'} and $self->{'parsed_filename'} eq $filename |
|
270
|
80 |
0 |
unless ($file =~ / /) |
|
275
|
0 |
80 |
if ($Ndot > $Nunderscore and $Ndot > 1) { } |
|
|
0 |
80 |
elsif ($Nunderscore > 1) { } |
|
|
0 |
80 |
elsif ($Ndash > 2) { } |
|
291
|
80 |
0 |
unless ($file =~ / - /) |
|
292
|
0 |
80 |
if ($file =~ /-/) { } |
|
|
0 |
80 |
elsif ($file =~ /^\(.*\)/) { } |
|
|
23 |
57 |
elsif ($file =~ /_/) { } |
|
310
|
0 |
80 |
if ($file =~ /^ *(\d+)[\W_]/) |
|
313
|
0 |
0 |
unless $file =~ s/^$partsep// |
|
317
|
57 |
23 |
unless $partsep =~ /_/ |
|
319
|
57 |
23 |
if (@parts == 1) { } |
|
|
23 |
0 |
elsif (@parts == 2) { } |
|
|
0 |
0 |
elsif (@parts > 2) { } |
|
321
|
0 |
57 |
if $title and $title =~ /^\d{1,2}$/ |
|
323
|
0 |
23 |
if ($parts[0] =~ /^\d{1,2}$/) { } |
|
|
3 |
20 |
elsif ($parts[1] =~ /^\d{1,2}$/) { } |
|
337
|
0 |
0 |
if (/^ *(\d+)\.? *$/) { } |
|
338
|
0 |
0 |
if $temp |
|
342
|
0 |
0 |
if $temp |
|
355
|
6 |
0 |
if not $no and $title =~ /^(\d+)?(?:audio|track|processed)\s*(\d+)?$/i and $+ |
|
359
|
0 |
80 |
if ($path) |
|
360
|
0 |
0 |
if (not $artist) { } |
|
367
|
0 |
80 |
if $title =~ /\((\d{4})\)/ or $artist =~ /\((\d{4})\)/ |
|
443
|
0 |
19 |
if length $y |