Branch Coverage

blib/lib/Media/Type/Simple.pm
Criterion Covered Total %
branch 29 36 80.5


line true false branch
101 0 3 if (@_) { }
106 2 1 unless (defined $Default)
108 0 2 unless open my $fh, '<', $file
158 56 7377 if (ref $args[0] ne 'Media::Type::Simple')
159 2 54 unless (defined $Work)
195 792 0 if ($line)
326 4 1 if $SPEC_CASES{"$cat/$spec"}
330 13 19 if self()->is_type($_)
358 10 1 if (my $exts = self()->is_type(args())) { }
359 8 2 wantarray ? :
375 2 2 wantarray ? :
398 7 0 if (exists self()->{'extens'}{$ext}) { }
428 5 0 if (my $ts = self()->is_ext($ext)) { }
430 2 3 wantarray ? :
466 794 0 if (@exts or 1)
470 791 3 unless (self()->{'types'}{$cat}{$spec})
477 1034 86 unless exists self()->{'extens'}{$_}
497 0 3 if ref $self ne 'Media::Type::Simple'