| blib/lib/Archive/Any.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 13 | unless -f $file |
| 24 | 0 | 26 | if $@ |
| 28 | 0 | 91 | if exists $available{$type} |
| 35 | 6 | 7 | if ($type) { } |
| 39 | 1 | 5 | unless ($mime_type) |
| 50 | 2 | 10 | unless ($handler) |
| 68 | 0 | 4 | defined $dir ? : |
| 83 | 4 | 12 | grep((!/^\Q$first_dir\E/), @files) ? : |
| 88 | 4 | 10 | grep({m[^(?:/|(?:\./)*\.\./)];} $self->files) ? : |