Branch Coverage

blib/lib/MP3/M3U/Parser.pm
Criterion Covered Total %
branch 45 82 54.8


line true false branch
14 0 7 @args % 2 ? :
34 0 7 if ($s and length $s < 3)
47 0 7 ref $file ? :
49 0 7 unless -e $new
57 7 0 $ac && $tt ? :
58 3 4 defined wantarray ? :
65 0 0 if ($ref and $ref ne 'GLOB' and $ref ne 'SCALAR')
70 7 0 unless ($ref)
75 0 7 $ref ? :
77 0 7 $ref ? :
88 0 7 if ($ref eq 'GLOB') { }
0 7 elsif ($ref eq 'SCALAR') { }
98 0 7 unless $fh->open($file, '<')
109 7 0 if $m3u =~ / \A \#EXTM3U /msx
110 0 0 $ref ? :
118 0 7 $ref eq 'SCALAR' ? :
124 0 0 if ($m3u =~ m[ \A \w:[\\/] (.+?) \z ]msx or $m3u =~ m[ \A [\\/]([^\\/].+?) \z ]msx or $m3u =~ / \A (.+?) \z /msx)
130 42 56 $self->{'parse_path'} eq 'asis' ? :
131 7 91 if (${$device_ref;} eq 'CDROM:' and $m3u =~ / \A (\w:) /msx)
148 98 0 if ($artist)
153 98 0 if (@xsong)
165 588 0 unless defined $i->[$CHECK]
189 0 196 unless $m3u
192 98 98 if ($m3u =~ / \#EXTINF /imsx)
210 14 84 if ($self->{'search_string'}) { }
212 1 13 if ($matched) { }
228 7 0 unless $ref
240 0 7 if $self->{'search_string'} and $k->{'total'} == 0
266 3 0 defined wantarray ? :
271 0 3 wantarray ? :
278 5 17 unless ($file =~ m[[\\/]]msx)
289 0 0 unless $id3 or $path
292 0 0 if $id3 =~ /$search/imsx or $path =~ /$search/imsx
298 120 7 if $LOADED{$module}
306 0 7 if $@ or not $eok
314 127 0 if ($self->_is_loadable('HTML::Entities'))
344 3 0 $tt ? :
352 0 162 unless $all
354 62 100 unless $ok
359 0 100 if ($min > 60)
365 0 100 $hr ? :