| blib/lib/Kelp/Request.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 0 | 1 | unless my $with = $self->headers->header("X-Requested-With") |
| 40 | 33 | 43 | unless $self->content_type |
| 53 | 21 | 51 | if ($self->is_json and $self->app->can("json")) |
| 60 | 1 | 20 | unless ref $hash eq "HASH" |
| 62 | 14 | 7 | if @_ |
| 63 | 3 | 4 | unless wantarray |
| 68 | 14 | 28 | if (@_ and wantarray and not $safe_param) |
| 74 | 28 | 9 | if @_ |
| 87 | 2 | 8 | unless @_ |
| 89 | 5 | 3 | if (@_ == 1) |
| 91 | 4 | 1 | unless ref $value |