| line |
true |
false |
branch |
|
73
|
5 |
913 |
if $res->_has_write_fh
|
|
76
|
901 |
12 |
if ($res->_has_response_cb) { }
|
|
85
|
860 |
41 |
if (defined $body) { }
|
|
87
|
12 |
848 |
if (&blessed($body)) { }
|
|
|
6 |
842 |
elsif (ref $body) { }
|
|
88
|
1 |
11 |
if ($body->can('getline')) { }
|
|
|
0 |
11 |
elsif ($body->can('read')) { }
|
|
104
|
0 |
0 |
unless $self->write($c, $buffer)
|
|
115
|
6 |
0 |
if (ref $body eq 'GLOB' or ref $body eq 'ARRAY') { }
|
|
145
|
3 |
9 |
if (my $body = $res->body)
|
|
147
|
0 |
3 |
if (&blessed($body) and $body->can('read') or ref $body eq 'GLOB') { }
|
|
155
|
0 |
0 |
unless $self->write($c, $buffer)
|
|
207
|
1 |
7 |
&blessed($val) ? :
|
|
208
|
1 |
7 |
unless (defined $cookie)
|
|
209
|
0 |
1 |
if $c->debug
|
|
237
|
0 |
15 |
if ref $val eq "HASH" and exists $val->{'__MOP__'}
|
|
258
|
34 |
0 |
if ($c->can("encoding"))
|
|
263
|
7 |
27 |
if ($c->debug) { }
|
|
428
|
0 |
0 |
unless $ctx->response->finalized_headers
|
|
447
|
1 |
17 |
ref $upload eq 'ARRAY' ? :
|
|
515
|
7 |
924 |
$ctx->request->secure ? :
|
|
522
|
316 |
615 |
if (not $ctx->config->{'use_request_uri_for_path'}) { }
|
|
524
|
3 |
313 |
if (exists $env->{'REDIRECT_URL'})
|
|
546
|
0 |
0 |
unless ($port =~ /^(?:80|443)$/ or $host =~ /:/)
|
|
550
|
84 |
847 |
$env->{'QUERY_STRING'} ? :
|
|
557
|
8 |
923 |
unless $base_path =~ m[/$]
|
|
580
|
1 |
922 |
if (my $new = $c->config->{'default_query_encoding'})
|
|
585
|
0 |
923 |
$c->config->{'do_not_check_query_encoding'} ? :
|
|
588
|
0 |
283 |
if $do_not_decode_query
|
|
594
|
922 |
1 |
exists $env->{'QUERY_STRING'} ? :
|
|
604
|
283 |
5 |
defined $_ ? :
|
|
607
|
84 |
59 |
if ($is_first_pair)
|
|
610
|
5 |
79 |
unless defined $value
|
|
619
|
1 |
921 |
if $old_encoding
|
|
620
|
4 |
918 |
$c->request->_use_hash_multivalue ? :
|
|
644
|
881 |
51 |
if $ctx->log->can("psgienv")
|
|
658
|
872 |
46 |
unless $request->_body
|
|
665
|
18 |
0 |
if $enc
|
|
667
|
1 |
17 |
ref $files eq 'ARRAY' ? :
|
|
670
|
20 |
0 |
if $enc
|
|
683
|
1 |
17 |
@uploads > 1 ? :
|
|
688
|
2 |
16 |
if (exists $parameters->{$name}) { }
|
|
689
|
0 |
2 |
if (ref $parameters->{$name} eq 'ARRAY') { }
|
|
697
|
1 |
15 |
@filenames > 1 ? :
|
|
773
|
1 |
0 |
if scalar @args and &blessed($args[-1])
|
|
774
|
1 |
0 |
if scalar @args and ref $args[-1] eq "HASH"
|
|
776
|
0 |
1 |
if (scalar @args and not ref $args[0])
|
|
777
|
0 |
0 |
if (my $listen = shift @args)
|
|
781
|
0 |
1 |
unless ($server)
|
|
806
|
0 |
923 |
unless $respond
|
|
822
|
79 |
1 |
defined $1 ? :
|