| blib/lib/Kelp/Test.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 6 | 23 | if ($args[0] and $args[0] eq "-utf8") |
| 52 | 0 | 251 | unless ref $req eq "HTTP::Request" |
| 58 | 251 | 0 | unless $req->uri->scheme |
| 63 | 250 | 1 | if ($req->uri->opaque =~ qr"^/{1}") |
| 96 | 0 | 176 | if ($code != 500 and $self->res->code == 500) |
| 265 | 0 | 18 | unless &like(scalar $self->res->header("content-type"), qr/json/, "Content-Type is JSON") |
| 268 | 0 | 18 | unless cmp_deeply($json, $expected, $test_name) |