| blib/lib/Archive/Any.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 13 | unless -f $file |
| 22 | 0 | 26 | if $@ |
| 26 | 0 | 91 | if exists $available{$type} |
| 33 | 6 | 7 | if ($type) { } |
| 37 | 1 | 5 | unless ($mime_type) |
| 48 | 2 | 10 | unless ($handler) |
| 66 | 0 | 4 | defined $dir ? : |
| 81 | 4 | 12 | grep((!/^\Q$first_dir\E/), @files) ? : |
| 86 | 4 | 10 | grep({m[^(?:/|(?:\./)*\.\./)];} $self->files) ? : |