Branch Coverage

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


line true false branch
16 0 7 @args % 2 ? :
36 0 7 if ($s and length $s < 3)
49 0 7 ref $file ? :
51 0 7 unless -e $new
59 7 0 $ac && $tt ? :
60 3 4 defined wantarray ? :
67 0 0 if ($ref and $ref ne 'GLOB' and $ref ne 'SCALAR')
72 7 0 unless ($ref)
77 0 7 $ref ? :
79 0 7 $ref ? :
90 0 7 if ($ref eq 'GLOB') { }
0 7 elsif ($ref eq 'SCALAR') { }
100 0 7 unless $fh->open($file, '<')
111 7 0 if $m3u =~ / \A \#EXTM3U /
112 0 0 $ref ? :
120 0 7 $ref eq 'SCALAR' ? :
126 0 0 if ($m3u =~ m[ \A \w:[\\/] (.+?) \z ] or $m3u =~ m[ \A [\\/]([^\\/].+?) \z ] or $m3u =~ / \A (.+?) \z /)
132 42 56 $$self{'parse_path'} eq 'asis' ? :
133 7 91 if (${$device_ref;} eq 'CDROM:' and $m3u =~ / \A (\w:) /msx)
150 98 0 if ($artist)
155 98 0 if (@xsong)
167 588 0 unless defined $$i[$CHECK]
191 0 196 unless $m3u
194 98 98 if ($m3u =~ / \#EXTINF /)
212 14 84 if ($$self{'search_string'}) { }
214 1 13 if ($matched) { }
230 7 0 unless $ref
242 0 7 if $$self{'search_string'} and $$k{'total'} == 0
268 3 0 defined wantarray ? :
273 0 3 wantarray ? :
280 5 17 unless ($file =~ m[[\\/]]msx)
291 0 0 unless $id3 or $path
294 0 0 if $id3 =~ /$search/imsx or $path =~ /$search/imsx
300 120 7 if $LOADED{$module}
308 0 7 if $@ or not $eok
316 127 0 if ($self->_is_loadable('HTML::Entities'))
346 3 0 $tt ? :
354 0 162 unless $all
356 62 100 unless $ok
361 0 100 if ($min > 60)
367 0 100 $hr ? :