| line |
true |
false |
branch |
|
43
|
0 |
0 |
if (ref $headsplitter eq 'CODE') { } |
|
|
0 |
0 |
elsif ($$this{'AUTOHEAD_DATA'} =~ /^(.*?$headsplitter)(.*)/s) { } |
|
51
|
0 |
0 |
if $headers ne '' or $end ne '' |
|
64
|
0 |
0 |
if ($_[0] =~ /Content-Type:\s*\S+(.*?)(\015?\012\015?\012|\r?\n\r?\n)/is) |
|
65
|
0 |
0 |
unless ($1 =~ /<[^>]+>/s) |
|
70
|
0 |
0 |
if (not $headsplitter and $_[0] =~ /^(.*?)(?:\015?\012|\r?\n)([ \t]*<[^>]+>[ \t]*)(?:\015?\012|\r?\n)/s) |
|
71
|
0 |
0 |
unless ($1 =~ /<[^>]+>/s) |
|
74
|
0 |
0 |
if (not $headsplitter and $_[0] =~ /^(.*?)(\s*<[^>]+>)/is) |
|
75
|
0 |
0 |
unless ($1 =~ /<[^>]+>/s) |
|
78
|
0 |
0 |
if (not $headsplitter and $_[0] =~ /^(.*?)(<[^>]+>\s*<[^>]+>)/s) |
|
80
|
0 |
0 |
unless ($s1 =~ /<[^>]+>/s or $s1 =~ /(?:^|[\r\n\015\012])[^\s:]+:[^\r\n\015\012]+$/s) |
|
86
|
0 |
0 |
if (not $headsplitter and $_[0] =~ /^(.*?)(\015?\012\015?\012|\r?\n\r?\n)/s) |
|
87
|
0 |
0 |
unless ($1 =~ /<[^>]+>/s) |
|
91
|
0 |
0 |
if (not $headsplitter and $_[0] =~ /^(?:<[^>]+>|>)+(?:\015?\012|\r?\n)/s) |
|
93
|
0 |
0 |
if (not $headsplitter and $_[0] =~ /(?:\015?\012|\r?\n)([ \t]*(?:<[^>]+>|>)+\s)/s) |
|
97
|
0 |
0 |
if ($is_all_content) { } |
|
|
0 |
0 |
elsif ($headsplitter ne '' and $_[0] =~ /^(.*?)\Q$headsplitter\E(.*)/s) { } |
|
104
|
0 |
0 |
if (not $headsplitter =~ /^\s+$/s) { } |
|
116
|
0 |
0 |
if ref $_[0]{'HEADOUT'} ne 'SCALAR' |
|
117
|
0 |
0 |
if ($#_ >= 1) |
|
127
|
0 |
0 |
if (ref $_[0]{'STDOUT'} eq 'SCALAR') { } |
|
128
|
0 |
0 |
if ($#_ >= 1) |
|
140
|
0 |
0 |
if ($#_ >= 1) |
|
175
|
0 |
0 |
if $_[0] eq '' |
|
177
|
0 |
0 |
if $$this{'BLOCKED'} |
|
181
|
0 |
0 |
if ($$this{'AUTOHEAD'} and not $_[1]) { } |
|
183
|
0 |
0 |
if ($headers ne '' or $end ne '') |
|
185
|
0 |
0 |
if $headers ne '' |
|
186
|
0 |
0 |
if $end ne '' |
|
191
|
0 |
0 |
unless ($_[1]) |
|
192
|
0 |
0 |
if (not $$this{'HEADER_CLOSED'} and $$this{'ONCLOSEHEADERS'}) { } |
|
200
|
0 |
0 |
if (ref $stdout eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $stdout eq 'CODE') { } |
|
202
|
0 |
0 |
$$Safe::World::stdout::Safe_World_NOW{'SELECT'}{'PREVSTDOUT'} ? : |
|
204
|
0 |
0 |
if $sel |
|
217
|
0 |
0 |
if $_[0] eq '' |
|
221
|
0 |
0 |
unless $headout |
|
223
|
0 |
0 |
if (not $_[1] and $$this{'AUTOHEAD'}) |
|
225
|
0 |
0 |
if ($headers ne '' or $end ne '') |
|
227
|
0 |
0 |
if $headers ne '' |
|
228
|
0 |
0 |
if $end ne '' |
|
234
|
0 |
0 |
if (ref $headout eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $headout eq 'CODE') { } |
|
236
|
0 |
0 |
$$Safe::World::stdout::Safe_World_NOW{'SELECT'}{'PREVSTDOUT'} ? : |
|
238
|
0 |
0 |
if $sel |
|
255
|
0 |
0 |
if not $$this{'AUTOHEAD'} and $$this{'HEADER_CLOSED'} or $$this{'BUFFER'} ne '' |
|
259
|
0 |
0 |
if ($$this{'AUTOHEAD_DATA'} ne '') |
|
261
|
0 |
0 |
if ($headers ne '' or $end ne '') { } |
|
262
|
0 |
0 |
if $headers ne '' |
|
263
|
0 |
0 |
if $end ne '' |
|
270
|
0 |
0 |
if (not $$this{'HEADER_CLOSED'} and $$this{'ONCLOSEHEADERS'}) |
|
287
|
0 |
0 |
unless $$this{'ONCLOSEHEADERS'} |
|
289
|
0 |
0 |
$$Safe::World::stdout::Safe_World_NOW{'SELECT'}{'PREVSTDOUT'} ? : |
|
300
|
0 |
0 |
if $sel |
|
312
|
0 |
0 |
if ($$this{'BUFFER'} ne '') |
|
329
|
0 |
0 |
if ($sel ne $$this{'IO'} and $sel ne 'main::STDOUT') |
|
333
|
0 |
0 |
if ($reset) |
|
364
|
0 |
0 |
if ($$this{'REDIRECT'}) { } |
|
368
|
0 |
0 |
if (not $$this{'AUTO_FLUSH'} || $$this{'AUTOHEAD'} || $|) { } |
|
374
|
0 |
0 |
if $$this{'BUFFER'} ne '' |
|
405
|
0 |
0 |
unless (ref $stdout) |