Condition Coverage

blib/lib/Dancer2/Core/Request.pm
Criterion Covered Total %
condition 43 59 72.8


and 3 conditions

line !l l&&!r l&&r condition
148 152 5 3 $self->is_behind_proxy and exists $self->env->{'HTTP_X_FORWARDED_HOST'}
186 680 91 7 $self->content_type and $self->content_type =~ m[^multipart/form-data]i
206 1 0 30 $body and length $body > 0
332 234 0 31 wantarray and @_ == 1

or 2 conditions

line l !l condition
132 586 27 $_[0]{'_route_params'} ||= {}
280 32 122 $path || '/'
304 28 0 $part ||= ""
497 21 0 CGI::Deurl::XS::parse_query_string($source) || {}

or 3 conditions

line l !l&&r !l&&!r condition
119 270 27 0 $_[0]{'_params'} ||= $_[0]->_build_params
123 703 695 0 $_[0]{'_body_params'} ||= $_[0]->body_parameters->as_hashref_mixed
166 1 6 7 $_[0]->env->{'HTTP_X_FORWARDED_PROTO'} or $_[0]->env->{'HTTP_X_FORWARDED_PROTOCOL'}
175 7 0 165 $scheme || $self->env->{'psgi.url_scheme'}
180 50 28 750 $_[0]{'data'} ||= $_[0]->deserialize
279 116 38 0 $host || "${server}:$port"
354 12 47 0 $self->{'query_parameters'} ||= do { if ($XS_PARSE_QUERY_STRING) { my $query = _decode(CGI::Deurl::XS::parse_query_string($self->env->{'QUERY_STRING'})); "Hash::MultiValue"->new(map({my $key = $_; is_arrayref($query->{$key}) ? map(($key, $_), @{$$query{$key};}) : ($key, $query->{$key});} keys %{$query;})); } else { _decode($self->SUPER::query_parameters); } }
376 17 0 0 $_[0]{'route_parameters'} ||= "Hash::MultiValue"->new
389 61 695 0 $self->{'body_parameters'} ||= _decode($self->SUPER::body_parameters)
402 0 3 0 $self->{'merged_parameters'} ||= do { my $query = $self->query_parameters; my $body = $self->body_parameters; my $route = $self->route_parameters; "Hash::MultiValue"->new(map($_->flatten, $query, $body, $route)) }
421 2686 0 21580 is_ref($h) || utf8::is_utf8($h)
494 22 516 31 not defined $source or $source eq ""
560 94 517 0 $_[0]{'cookies'} ||= $_[0]->_build_cookies