| lib/PAGI/Endpoint/HTTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 11 | 17 | if $self->can($method) |
| 30 | 4 | 0 | if $self->can("get") and not $self->can("head") |
| 32 | 4 | 0 | unless grep {$_ eq "OPTIONS";} @allowed |
| 41 | 1 | 6 | if ($http_method eq "options") |
| 42 | 0 | 1 | if ($self->can("options")) |
| 51 | 1 | 0 | if ($http_method eq "head" and not $self->can("head") and $self->can("get")) |
| 56 | 4 | 2 | if ($self->can($http_method)) |
| 79 | 0 | 1 | unless $type eq "http" |