| line |
true |
false |
branch |
|
39
|
2 |
16990 |
if $this->blocking |
|
40
|
0 |
16990 |
if $$this{'env_read'} |
|
43
|
16990 |
0 |
unless ($$this{'env_length_read'}) |
|
45
|
0 |
16990 |
unless defined $bytes_read or $! == 11 |
|
46
|
16972 |
18 |
unless $bytes_read |
|
47
|
9 |
9 |
if ($buffer =~ / ^ (\d+) : (.*) $ /osx) { } |
|
|
3 |
6 |
elsif ($$this{'env_length_buffer'} ne '' and $buffer =~ / ^ : (.*) $ /osx) { } |
|
|
6 |
0 |
elsif ($buffer =~ / ^ \d+ $ /osx) { } |
|
67
|
0 |
12 |
unless defined $read or $! == 11 |
|
68
|
0 |
12 |
unless $read |
|
69
|
12 |
0 |
if ($read == $left_to_read + 1) { } |
|
70
|
0 |
12 |
if ((my $comma = substr($buffer, $left_to_read)) ne ',') |
|
112
|
14 |
0 |
if $this->connection |
|
135
|
0 |
0 |
if $$this{'blocking'} and $blocking or not $$this{'blocking'} || $blocking |
|
136
|
0 |
0 |
if ($blocking) { } |
|
172
|
0 |
14 |
unless $env_string =~ /
\G CONTENT_LENGTH \0 (\d+) \0
/cgmosx |
|
177
|
0 |
31 |
if $env{$1} |
|
180
|
0 |
14 |
unless pos $env_string = length $env_string |
|
181
|
0 |
14 |
unless $env{'SCGI'} and $env{'SCGI'} eq '1' |
|
204
|
0 |
2 |
unless read $this->connection, my $env_length, 14 |
|
205
|
0 |
2 |
unless my($length, $rest) = $env_length =~ / ^ (\d+) : (.*) $ /osx |
|
207
|
0 |
2 |
unless read $this->connection, my $env, $length + 1 - length($rest) |
|
208
|
0 |
2 |
if ((my $comma = substr($env, $length - length($rest))) ne ',') |
|
217
|
0 |
14 |
unless $$this{'closed'} |