| blib/lib/Role/MimeInfo.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 26 | 34.6 |
| line | true | false | branch |
|---|---|---|---|
| 47 | 0 | 0 | unless defined $obj |
| 50 | 0 | 0 | unless my $ref = ref $obj |
| 53 | 0 | 0 | if ($ref eq 'GLOB' or $bl and $ref->can('seek') and $ref->can('read')) { } |
| 0 | 0 | elsif ($ref eq 'SCALAR') { } | |
| 0 | 0 | elsif ($ref eq 'ARRAY') { } | |
| 0 | 0 | elsif (my $ov = overload::Method($obj, '""')) { } | |
| 82 | 0 | 2 | unless defined $child |
| 91 | 0 | 2 | if $canon and $canon ne $child |
| 93 | 2 | 0 | if (defined $ancestor) |
| 95 | 1 | 1 | if $t{$ancestor} |
| 99 | 0 | 1 | if $t{$ancestor} |
| 108 | 2 | 3 | unless defined $t{$t} |
| 114 | 1 | 0 | if defined $ancestor |