| blib/lib/PAGI/Middleware/ContentNegotiation.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 20 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 76 | 0 | 6 | if ($scope->{'type'} ne "http") |
| 85 | 1 | 1 | if (not $preferred and $self->{'strict'}) |
| 108 | 0 | 6 | unless @accepted |
| 115 | 1 | 11 | if lc $type eq lc $supported |
| 119 | 2 | 3 | if ($type eq "*/*") |
| 123 | 1 | 2 | if ($type =~ m[^([^/]+)/\*$]) |
| 126 | 1 | 1 | if $supported =~ m[^$major/]i |
| 141 | 0 | 13 | unless $type |
| 145 | 2 | 0 | if ($param =~ /^q\s*=\s*([0-9.]+)$/i) |
| 165 | 5 | 0 | if lc $h->[0] eq $name |