| blib/lib/Limper/SendFile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 20 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 0 | if (defined wantarray) { } |
| 29 | 0 | 0 | unless defined $d |
| 30 | 0 | 0 | unless defined $d |
| 31 | 0 | 0 | length $y == 2 ? : |
| 53 | 0 | 0 | if ($file =~ qr"/\.\./") |
| 57 | 0 | 0 | if (-e $file and -r $file) { } |
| 58 | 0 | 0 | if (-f $file) { } |
| 0 | 0 | elsif (-d $file) { } | |
| 59 | 0 | 0 | if (not grep({$_ eq 'Content-Type';} keys %{+{&headers};}) and my($ext) = $file =~ /\.(\w+)$/) |
| 60 | 0 | 0 | if exists $mime_types{$ext} |