| 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'}) |
| 107 | 0 | 6 | unless @accepted |
| 114 | 1 | 11 | if lc $type eq lc $supported |
| 118 | 2 | 3 | if ($type eq "*/*") |
| 122 | 1 | 2 | if ($type =~ m[^([^/]+)/\*$]) |
| 125 | 1 | 1 | if $supported =~ m[^$major/]i |
| 140 | 0 | 13 | unless $type |
| 144 | 2 | 0 | if ($param =~ /^q\s*=\s*([0-9.]+)$/i) |
| 164 | 5 | 0 | if lc $h->[0] eq $name |