| blib/lib/SolarBeam/Response.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 23 | 65.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 52 | 3 | 5 | 6 | $res->code and not $header |
| 55 | 0 | 4 | 2 | $dom and $dom->at('title') |
| 106 | 0 | 0 | 5 | not $self->error and $response |
| line | l | !l | condition |
|---|---|---|---|
| 9 | 0 | 4 | $ENV{'SOLARBEAM_DEBUG'} || 0 |
| 40 | 8 | 7 | $res->json || {} |
| 59 | 3 | 1 | $res->body || 'Missing response headers.' |
| 65 | 2 | 1 | $tx->error->{'message'} ||= 'Unknown error' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 27 | 0 | 0 | 2 | $self->{'facet_fields_as_hashes'} ||= do { my $facet_fields = $self->facet_fields; my %res; foreach my $k (keys %$facet_fields) { $res{$k} = {map({@$_{'value', 'count'};} @{[] unless $facet_fields->{$k};})}; } ; return \%res } |
| 48 | 1 | 0 | 0 | $data->{'error'}{'code'} || $tx->res->code |