| line |
true |
false |
branch |
|
44
|
0 |
2 |
if exists $ENV{'MOD_PERL_API_VERSION'} and $ENV{'MOD_PERL_API_VERSION'} == 2 |
|
46
|
0 |
0 |
if not $GLOBAL::MODPERL and exists $ENV{'MOD_PERL'} and $Apache::VERSION > 1 and $Apache::VERSION < 1.99 |
|
48
|
0 |
2 |
if ($GLOBAL::MODPERL == 2) { } |
|
|
0 |
2 |
elsif ($GLOBAL::MODPERL == 1) { } |
|
|
0 |
2 |
elsif (exists $ENV{'GATEWAY_INTERFACE'} and $ENV{'GATEWAY_INTERFACE'} eq 'CGI-PerlEx') { } |
|
|
0 |
2 |
elsif (exists $ENV{'CONTENT_TYPE'} and index(lc $ENV{'CONTENT_TYPE'}, 'multipart/form-data') >= 0) { } |
|
75
|
0 |
2 |
if ($^O eq 'MSWin32') { } |
|
76
|
0 |
0 |
$ENV{'TEMP'} ? : |
|
89
|
2 |
0 |
if (not $GLOBAL::MODPERL) |
|
101
|
0 |
0 |
if ($_[0] and $pkg eq 'PAB3::CGI' and $_[0] eq 'import') |
|
107
|
0 |
0 |
if ($_ eq ':default') |
|
115
|
2 |
0 |
if $PAB3::CGI::FIRSTRUN |
|
116
|
0 |
0 |
if (%PAB3::CGI::_FILES) |
|
118
|
0 |
0 |
unless ($PAB3::CGI::_FILES{$_}{'tmp_name'}) |
|
135
|
0 |
0 |
if (ref $h eq 'ARRAY') { } |
|
142
|
0 |
0 |
if ($ref = ref $handler) { } |
|
143
|
0 |
0 |
if ($ref eq 'CODE') |
|
158
|
0 |
0 |
if ($PAB3::Statistic::VERSION) |
|
174
|
0 |
0 |
if ($ENV{'SCRIPT_FILENAME'} and $ENV{'SCRIPT_FILENAME'} =~ m[^(.+[\\/])(.+?)$]) { } |
|
|
0 |
0 |
elsif ($0 =~ m[^(.+[\\/])(.+?)$]) { } |
|
189
|
0 |
0 |
if (index($hua, 'win') >= 0) { } |
|
|
0 |
0 |
elsif (index($hua, 'linux') >= 0) { } |
|
|
0 |
0 |
elsif (index($hua, 'ppc') >= 0) { } |
|
|
0 |
0 |
elsif (index($hua, 'freebsd') >= 0) { } |
|
210
|
0 |
0 |
if ($_[$index] eq 'request_max_size') { } |
|
|
0 |
0 |
elsif ($_[$index] eq 'mpart_buffer_size') { } |
|
|
0 |
0 |
elsif ($_[$index] eq 'max_boundary') { } |
|
|
0 |
0 |
elsif ($_[$index] eq 'temp_dir') { } |
|
|
0 |
0 |
elsif ($_[$index] eq 'save_to_file') { } |
|
|
0 |
0 |
elsif ($_[$index] eq 'logger') { } |
|
|
0 |
0 |
elsif ($_[$index] eq 'request') { } |
|
238
|
0 |
0 |
unless $PAB3::CGI::FIRSTRUN |
|
247
|
0 |
0 |
if ($PAB3::CGI::FIRSTRUN) |
|
249
|
0 |
0 |
if ($GLOBAL::MODPERL) { } |
|
250
|
0 |
0 |
if ($GLOBAL::MODPERL == 2) { } |
|
|
0 |
0 |
elsif ($GLOBAL::MODPERL == 1) { } |
|
253
|
0 |
0 |
if ($GLOBAL::MPREQ->handler eq 'modperl') |
|
261
|
0 |
0 |
if ($PAB3::Statistic::VERSION) |
|
264
|
0 |
0 |
$GLOBAL::MODPERL == 2 ? : |
|
285
|
0 |
0 |
if ($PAB3::Statistic::VERSION) |
|
286
|
0 |
0 |
$iru > 0 ? : |
|
313
|
0 |
0 |
unless ($name) |
|
319
|
0 |
0 |
if ($PAB3::CGI::HeaderDone) |
|
326
|
0 |
0 |
if ($domain) |
|
329
|
0 |
0 |
unless ($suffix =~ /\d{$len}|com|net|org/i or $domain =~ /^\./) |
|
333
|
0 |
0 |
if (defined $expire and $expire > 0) |
|
340
|
0 |
0 |
if ($value) |
|
344
|
0 |
0 |
defined $value ? : |
|
|
0 |
0 |
defined $expire ? : |
|
|
0 |
0 |
$domain ? : |
|
|
0 |
0 |
$path ? : |
|
|
0 |
0 |
$secure ? : |
|
|
0 |
0 |
unless &header('Set-Cookie: ' . $name . '=' . (defined $value ? '"' . $value . '";' : ';') . (defined $expire ? ' Expires="' . $expire . '";' : '') . ($domain ? ' Domain="' . $domain . '";' : '') . ($path ? ' Path="' . $path . '";' : '') . ($secure ? ' Secure="1";' : '') . ' Version="1";' . "\n\r") |
|
359
|
0 |
0 |
unless ($location) |
|
364
|
0 |
0 |
if (defined $params and ref $params eq 'HASH') |
|
366
|
0 |
0 |
if ($location and index($location, '?') >= 0) { } |
|
375
|
0 |
0 |
if $index++ > 0 |
|
380
|
0 |
0 |
$internal && $GLOBAL::MPREQ ? : |
|
392
|
0 |
0 |
if ($PAB3::CGI::HeaderDone) |
|
398
|
0 |
0 |
if ($_[0] =~ m[^HTTP/\d+\.\d+\s+(\d+\s*.*)]i) |
|
401
|
0 |
0 |
unless ($key, $val) = $_[0] =~ /^\s*([\w\-\_]+)\s*?\:\s*(.+)/ |
|
403
|
0 |
0 |
if (not defined $_[1] or $_[1] or not defined $PAB3::CGI::HEAD{$k}) { } |
|
|
0 |
0 |
elsif (defined $PAB3::CGI::HEAD{$k}) { } |
|
407
|
0 |
0 |
unless ref $PAB3::CGI::HEAD{$k} |
|
416
|
0 |
0 |
if ($hashname =~ /HASH\(0x\w+\)/) { } |
|
423
|
0 |
0 |
if ($$ref_table{$r_hash} and $$ref_table{$r_hash} <= $level) |
|
432
|
0 |
0 |
if ($r and index($$r_hash{$k}, 'ARRAY(') >= 0) { } |
|
|
0 |
0 |
elsif ($r and index($$r_hash{$k}, 'HASH(') >= 0) { } |
|
439
|
0 |
0 |
!defined($$r_hash{$k}) ? : |
|
451
|
0 |
0 |
if ($arrayname =~ /ARRAY\(0x\w+\)/) { } |
|
458
|
0 |
0 |
if ($$ref_table{$r_array} and $$ref_table{$r_array} <= $level) |
|
468
|
0 |
0 |
if ($r and index($v, 'ARRAY(') >= 0) { } |
|
|
0 |
0 |
elsif ($r and index($v, 'HASH(') >= 0) { } |
|
475
|
0 |
0 |
!defined($v) ? : |
|
488
|
0 |
0 |
if ($r and index($v, 'ARRAY(') >= 0) { } |
|
|
0 |
0 |
elsif ($r and index($v, 'HASH(') >= 0) { } |
|
|
0 |
0 |
elsif ($r and index($v, 'SCALAR(') >= 0) { } |
|
507
|
0 |
0 |
unless defined $content |
|
513
|
0 |
0 |
if $filename |
|
525
|
0 |
0 |
unless my $s = $_[0] |
|
531
|
0 |
0 |
unless my $s = $_[0] |
|
537
|
0 |
0 |
unless my $s = $_[0] |
|
543
|
0 |
0 |
unless my $s = $_[0] |
|
556
|
0 |
0 |
unless defined $ENV{'HTTP_COOKIE'} |
|
560
|
0 |
0 |
if ($iv > 0) { } |
|
565
|
0 |
0 |
if ($val) |
|
571
|
0 |
0 |
defined $PAB3::CGI::_COOKIE{$key} ? : |
|
574
|
0 |
0 |
defined $PAB3::CGI::_COOKIE{$in[$i]} ? : |
|
583
|
0 |
0 |
if ($str =~ /(.+) at (.+) line (.+)$/s) { } |
|
615
|
0 |
0 |
if ($PAB3::CGI::Logger) |
|
618
|
0 |
0 |
if ($GLOBAL::MPREQ) { } |
|
622
|
0 |
0 |
if $GLOBAL::MODPERL == 1 |
|
633
|
0 |
0 |
if ($str =~ /(.+) at (.+) line (.+)$/s) { } |
|
644
|
0 |
0 |
if ($PAB3::CGI::Logger) |
|
647
|
0 |
0 |
if ($GLOBAL::MPREQ) { } |