| line |
l |
!l&&r |
!l&&!r |
condition |
|
112
|
0 |
0 |
0 |
$$r{'headers_in'} ||= do {
my(@http_header) = grep({/^HTTP_/;} keys %ENV);
my(%http_header) = map({$_, $ENV{$_};} @http_header);
foreach my $k (keys %http_header) {
my $v = delete $http_header{$k};
$k =~ s/^HTTP_//;
$k =~ s/_/-/g;
$http_header{lc $k} = $v;
} ;
\%http_header
} |
|
152
|
0 |
0 |
0 |
$$constant_hr{''}{$key} || $Dir_config_env{$key} |
|
163
|
0 |
0 |
0 |
$Dir_config_env{'WebDyneServer'} || $ENV{'SERVER_NAME'} |
|
179
|
0 |
0 |
0 |
$$constant_hr{''}{$key} || $Dir_config_env{$key} |
|
206
|
0 |
0 |
0 |
$Dir_config_env{'WebDyneServer'} || $ENV{'SERVER_NAME'} |
|
209
|
0 |
0 |
0 |
$Dir_config_env{'WebDyneLocation'} or $ENV{'APPL_MD_PATH'} |
|
212
|
0 |
0 |
0 |
$Dir_config_env{'WebDyneLocation'} || $ENV{'APPL_MD_PATH'} |
|
220
|
0 |
0 |
0 |
exists $$constant_hr{$location} or exists $$constant_server_hr{$location} |
|
222
|
0 |
0 |
0 |
exists $$constant_hr{$location} or exists $$constant_server_hr{$location} |
|
288
|
0 |
0 |
0 |
$r{'uri'} || $ENV{'REQUEST_URI'} |
|
304
|
0 |
0 |
0 |
$fn || do {
my $env = join("\n", map({"$_=$ENV{$_}";} keys %ENV));
return err("unable to determine filename for request from environment: $env")
} |
|
410
|
0 |
0 |
0 |
$$r{'uri'} || $ENV{'REQUEST_URI'} |