| lib/PAGI/Test/Response.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 1 | 34 | unless defined $body and length $body |
| 42 | 3 | 31 | unless my $ct = $self->content_type |
| 45 | 6 | 25 | if ($ct =~ /charset\s*=\s*"?([^";,\s]+)"?/i) |
| 56 | 40 | 4 | if lc $pair->[0] eq $name |
| 72 | 4 | 0 | if $s >= 200 |
| 73 | 1 | 0 | if $s >= 300 |
| 87 | 1 | 23 | if (my $err = $@) |
| 92 | 1 | 0 | defined $body ? : |
| 93 | 0 | 1 | if (length $preview > $JSON_ERROR_BODY_LIMIT) |