Branch Coverage

blib/lib/Video/Filename.pm
Criterion Covered Total %
branch 0 108 0.0


line true false branch
236 0 0 unless defined $_[0]
237 0 0 if (ref $_[0]) { }
247 0 0 if (defined $$self{'episode'})
248 0 0 if $$self{'episode'} =~ s/-(\d+)//i
249 0 0 if $$self{'episode'} =~ s/([a-z])$//i
255 0 0 if $file =~ m[^(.*/)]
256 0 0 if $file
257 0 0 if $file =~ s/\.([0-9a-z]+)$//i
267 0 0 if ($] >= 5.01) { }
268 0 0 if ($file =~ /$$pat{'re'}/i)
269 0 0 if defined $$pat{'warning'}
273 0 0 if defined $$data[0] and not defined $$self{$key}
279 0 0 if (@matches = $file =~ /$$pat{'re_compat'}/i)
281 0 0 if defined $$pat{'warning'}
286 0 0 unless defined $$self{$key}
295 0 0 if (defined $$self{'name'} || defined $$self{'season'} || defined $$self{'episode'} and defined $$self{'movie'})
296 0 0 unless defined $$self{'name'}
302 0 0 if (defined $$self{$key})
303 0 0 if ($$self{$key} =~ m[^.*/(.*?)$])
310 0 0 if defined $$self{'spaces'}
316 0 0 if (defined $$self{'epname'} and not defined $$self{'part'})
319 0 0 if ($epname =~ /(?:$rmpart) (\d+)/i or $epname =~ /(\d+)\s*(?:of|-)\s*\d+/i or $epname =~ /^(\d+)/ or $epname =~ /[\s._-](\d+)$/)
330 0 0 if defined $$self{$key}
332 0 0 if $$self{'endep'} == $$self{'episode'}
335 0 0 if (defined $$self{'season'}) { }
0 0 elsif (defined $$self{'dvd'}) { }
353 0 0 if ($str =~ s/^(zero|and|&)//i) { }
0 0 elsif ($str =~ s/^one//i) { }
0 0 elsif ($str =~ s/^tw(o|en)//i) { }
0 0 elsif ($str =~ s/^th(ree|ir)//i) { }
0 0 elsif ($str =~ s/^four//i) { }
0 0 elsif ($str =~ s/^fi(ve|f)//i) { }
0 0 elsif ($str =~ s/^six//i) { }
0 0 elsif ($str =~ s/^seven//i) { }
0 0 elsif ($str =~ s/^eight//i) { }
0 0 elsif ($str =~ s/^nine//i) { }
0 0 elsif ($str =~ s/^(t|te|e)en//i) { }
0 0 elsif ($str =~ s/^eleven//i) { }
0 0 elsif ($str =~ s/^twelve//i) { }
0 0 elsif ($str =~ s/^t?y//i) { }
0 0 elsif ($str =~ s/^hundred//i) { }
0 0 elsif ($str =~ s/^thousand//i) { }
0 0 elsif ($str =~ s/^million//i) { }
0 0 elsif ($str =~ s/^billion//i) { }
0 0 elsif ($str =~ s/^trillion//i) { }
385 0 0 if ($] >= 5.01) { }
387 0 0 if defined $end
390 0 0 if defined $end
399 0 0 if ($] >= 5.01) { }
401 0 0 if defined $end
404 0 0 if defined $end
440 0 0 if ($$file{'regex'} ne $$pat{'re'})
450 0 0 if ($attr ne $value)
458 0 0 unless (eval "\$file->$funcs[$i]()" == $$pat{'test_funcs'}[$i])