| blib/lib/PAGI/Endpoint/HTTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 13 | 29 | if $self->can($method) |
| 29 | 6 | 0 | if $self->can("get") and not $self->can("head") |
| 31 | 6 | 0 | unless grep {$_ eq "OPTIONS";} @allowed |
| 42 | 2 | 11 | if ($http_method eq 'options' and not $self->can('options')) { } |
| 1 | 10 | elsif ($http_method eq 'head' and not $self->can('head') and $self->can('get')) { } | |
| 7 | 3 | elsif ($self->can($http_method)) { } | |
| 60 | 1 | 12 | unless is_response($res) |
| 74 | 0 | 7 | unless $type eq "http" |