| line |
l |
!l&&r |
!l&&!r |
condition |
|
22
|
0 |
0 |
0 |
$_[0]{'request'} ||= $r_class->new(@_)
|
|
66
|
0 |
0 |
0 |
$ENV{'HTTP_HOST'} or $ENV{'SERVER_NAME'}
|
|
67
|
0 |
0 |
0 |
$ENV{'QUERY_STRING'} or $ENV{'REDIRECT_QUERY_STRING'}
|
|
72
|
0 |
0 |
0 |
$ENV{uc($e->project_name) . '_REQUEST_CLASS'} || do {
$ENV{'MOD_PERL'} && 'ModPerl::VersionUtil'->require ? do {
my $mp_util = 'ModPerl::VersionUtil';
$Egg::Request::MP_VERSION = $mp_util->mp_version;
$Egg::Request::MP_VERSION > 2 ? 'Egg::Request::Apache::MP20' : ($mp_util->is_mp2 ? 'Egg::Request::Apache::MP20' : ($mp_util->is_mp19 ? 'Egg::Request::Apache::MP19' : ($mp_util->is_mp1 ? 'Egg::Request::Apache::MP13' : do {
$Egg::Request::MP_VERSION = 0;
warn " Unsupported mod_perl v$Egg::Request::MP_VERSION ";
'Egg::Request::CGI'
})))
} : 'Egg::Request::CGI'
}
|
|
153
|
0 |
0 |
0 |
$$req{'parameters'} ||= do {
my $r = $req->r;
my %params;
$params{$_} = $r->param($_) foreach ($r->param);
\%params
}
|
|
165
|
0 |
0 |
0 |
$$req{'cookies'} ||= do {
{} unless 'CGI::Cookie'->fetch
}
|
|
181
|
0 |
0 |
0 |
shift() || croak('I want cookie key.')
|
|
191
|
0 |
0 |
0 |
$ENV{'HTTPS'} && lc $ENV{'HTTPS'} eq 'on' || $ENV{'SERVER_PORT'} && $ENV{'SERVER_PORT'} == 443
|
|
|
0 |
0 |
0 |
$_[0]{'secure'} ||= $ENV{'HTTPS'} && lc $ENV{'HTTPS'} eq 'on' || $ENV{'SERVER_PORT'} && $ENV{'SERVER_PORT'} == 443 ? 1 : 0
|
|
197
|
0 |
0 |
0 |
$_[0]{'scheme'} ||= $_[0]->secure ? 'https' : 'http'
|
|
201
|
0 |
0 |
0 |
$$req{'uri'} ||= do {
require URI;
my $uri = 'URI'->new;
my $path = $req->path;
$path =~ s[^/][];
$uri->scheme($req->scheme);
$uri->host($req->host);
$uri->port($req->port);
$uri->path($path);
$uri->query($ENV{'QUERY_STRING'}) if $ENV{'QUERY_STRING'};
$uri->canonical
}
|
|
215
|
0 |
0 |
0 |
$$req{'remote_host'} ||= do {
$req->remote_addr unless $ENV{'REMOTE_HOST'} or gethostbyaddr pack('C*', split(/\./, $req->remote_addr, 0)), 2
}
|
|
216
|
0 |
0 |
0 |
$ENV{'REMOTE_HOST'} or gethostbyaddr pack('C*', split(/\./, $req->remote_addr, 0)), 2
|
|
223
|
0 |
0 |
0 |
$$req{'host_name'} ||= do {
my $host = $req->host;
$host =~ s/\:\d+$//;
$host
}
|