Branch Coverage

blib/lib/MIME/Type.pm
Criterion Covered Total %
branch 16 24 66.6


line true false branch
38 0 2207 unless my $type = $self->{'MT_type'} = $args->{'type'}
45 226 1879 $self->mediaType eq 'text' ? :
102 2105 $args->{'encoding'} ? :
48 0 2207 if defined $args->{'system'}
49 2193 14 if defined $args->{'charset'}
60 2178 2239 unless @_
64 0 0 $mime eq 'text' ? :
2239 0 if ($mime =~ m[^\s*(?:x\-)?([\w.+-]+)/(?:x\-)?([\w.+-]+)\s*$]i) { }
79 2107 0 $_[0]->simplified =~ m[^([\w.-]+)/] ? :
83 4 0 $_[0]->simplified =~ m[/([\w+.-]+)$] ? :
111 7 30 ref $other ? :
128 0 1 if ($default eq "_REQUIRED")