| lib/MIME/Types.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 8 | 15 | 53.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 250 | 1 | 5 | 2 | not ref $type and index($type, "/") >= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 39 | 0 | 4 | 0 | $ENV{'PERL_MIME_TYPE_DB'} || $args->{'db_file'} || 'File::Spec'->catfile(dirname('lib/MIME/Types.pm'), 'types.db') |
| 52 | 0 | 0 | 184 | $only_iana && !$is_iana || $only_complete && !$has_ext |
| 237 | 6 | 1 | 0 | $mime_types ||= "MIME::Types"->new |
| 247 | 8 | 0 | 0 | $mime_types ||= "MIME::Types"->new |