line |
true |
false |
branch |
12
|
0 |
27 |
unless (&reftype($app) eq "CODE" or overload::Method($app, "&{}")) |
13
|
0 |
0 |
defined $app ? : |
30
|
1 |
33 |
unless ($env->{'REQUEST_METHOD'}) |
33
|
1 |
32 |
unless ($env->{'REQUEST_METHOD'} =~ /^[A-Z]+$/) |
36
|
0 |
32 |
unless (defined $env->{'SCRIPT_NAME'}) |
39
|
1 |
31 |
if ($env->{'SCRIPT_NAME'} eq "/") |
42
|
0 |
31 |
unless (defined $env->{'PATH_INFO'}) |
45
|
1 |
30 |
if ($env->{'PATH_INFO'} ne "" and not $env->{'PATH_INFO'} =~ m[^/]) |
48
|
0 |
30 |
unless (defined $env->{'SERVER_NAME'}) |
51
|
0 |
30 |
if ($env->{'SERVER_NAME'} eq "") |
54
|
1 |
29 |
unless (defined $env->{'SERVER_PORT'}) |
57
|
0 |
29 |
if ($env->{'SERVER_PORT'} eq "") |
60
|
1 |
28 |
if (defined $env->{'SERVER_PROTOCOL'} and not $env->{'SERVER_PROTOCOL'} =~ m[^HTTP/\d]) |
64
|
0 |
168 |
unless (exists $$env{"psgi.$param"}) |
68
|
1 |
27 |
unless (ref $env->{'psgi.version'} eq "ARRAY") |
71
|
0 |
27 |
unless (scalar @{$env->{'psgi.version'};} == 2) |
74
|
0 |
27 |
unless ($env->{'psgi.url_scheme'} =~ /^https?$/) |
77
|
27 |
0 |
if ($env->{'psgi.version'}[1] == 1) |
79
|
0 |
81 |
unless (exists $$env{"psgi.$param"}) |
84
|
1 |
26 |
if ($env->{'HTTP_CONTENT_TYPE'}) |
87
|
0 |
26 |
if ($env->{'HTTP_CONTENT_LENGTH'}) |
97
|
1 |
4 |
if ref $fh eq "GLOB" and *{$fh;}{"IO"} |
103
|
1 |
27 |
unless (ref $res eq "ARRAY" or ref $res eq "CODE") |
107
|
2 |
25 |
if (ref $res eq "CODE") |
111
|
1 |
0 |
unless (@$res == 3 or $streaming and @$res == 2) |
115
|
1 |
23 |
unless ($res->[0] =~ /^\d+$/ and $res->[0] >= 100) |
119
|
1 |
22 |
unless (ref $res->[1] eq "ARRAY") |
124
|
1 |
21 |
unless (@copy % 2 == 0) |
129
|
1 |
15 |
if (lc $key eq "status") |
132
|
4 |
11 |
if ($key =~ /[:\r\n]|[-_]$/) |
135
|
2 |
9 |
unless ($key =~ /^[a-zA-Z][0-9a-zA-Z\-_]*$/) |
138
|
2 |
7 |
if ($val =~ /[\000-\037]/) |
141
|
2 |
5 |
unless (defined $val) |
147
|
4 |
0 |
unless (@$res == 2 or ref $res->[2] eq "ARRAY" or &Plack::Util::is_real_fh($res->[2]) or is_possibly_fh($res->[2]) or &blessed($res->[2]) and $res->[2]->can("getline")) |
155
|
1 |
5 |
if (ref $res->[2] eq "ARRAY" and grep _has_wide_char($_), @{$$res[2];}) |
167
|
3 |
2 |
if utf8::is_utf8($str) |