| line |
!l |
l&&!r |
l&&r |
condition |
|
164
|
3 |
0 |
1 |
$backend = $self->{'cf_backend'} and my $sub = $backend->can('startup') |
|
185
|
0 |
34 |
0 |
not $self->{'cf_no_unicode_params'} and $self->{'cf_output_encoding'} |
|
191
|
12 |
19 |
3 |
$self->{'loc2psgi_dict'} and my $psgi_app = $self->lookup_psgi_mount($env->{'PATH_INFO'}) |
|
249
|
1 |
0 |
0 |
$self->{'cf_debug_psgi'} and $self->has_htdebug('static') |
|
317
|
0 |
0 |
0 |
@rest == 2 and defined $rest[-1] |
|
|
0 |
0 |
0 |
@rest == 2 and defined $rest[-1] and ref $args eq 'HASH' |
|
367
|
0 |
4 |
0 |
defined $_[0] and ref $_[0] eq 'SCALAR' |
|
|
4 |
0 |
0 |
defined $_[0] and ref $_[0] eq 'SCALAR' and not ref ${$_[0];} |
|
375
|
0 |
39 |
8 |
not $self->{'cf_per_role_docroot'} and nonempty($env->{'PATH_TRANSLATED'}) |
|
|
39 |
0 |
8 |
not $self->{'cf_per_role_docroot'} and nonempty($env->{'PATH_TRANSLATED'}) and $self->is_path_translated_mode($env) |
|
606
|
0 |
0 |
2 |
defined $remote_addr and $remote_addr ne '' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
54
|
0 |
8 |
0 |
$self->{'cf_per_role_docroot_key'} ||= $self->default_per_role_docroot_key |
|
55
|
0 |
8 |
0 |
$self->{'cf_default_role'} ||= $self->default_default_role |
|
97
|
27 |
2 |
0 |
$self->{'path2yatt'}{$dirPath} ||= $self->load_yatt($dirPath) |
|
151
|
4 |
0 |
0 |
defined $self->{'cf_doc_root'} or defined $self->{'cf_per_role_docroot'} |
|
180
|
3 |
0 |
34 |
$self->has_forbidden_path($env->{'PATH_INFO'}) // $self->has_forbidden_path($env->{'PATH_TRANSLATED'}) |
|
277
|
27 |
0 |
2 |
not $error or is_done($error) |
|
330
|
0 |
1 |
0 |
$self->{'cf_psgi_static'} || $self->psgi_file_app($self->{'cf_doc_root'}) |
|
343
|
1 |
0 |
0 |
$self->{'cf_psgi_fallback'} ||= $self->psgi_file_app($self->{'cf_doc_root'}) |
|
405
|
0 |
0 |
0 |
$user ||= $self->{'cf_default_role'} |
|
495
|
0 |
0 |
0 |
$env->{'HTTP_X_REAL_IP'} // $env->{'HTTP_X_CLIENT_IP'} |
|
|
0 |
0 |
0 |
($env->{'HTTP_X_REAL_IP'} // $env->{'HTTP_X_CLIENT_IP'}) // do {
if (defined(my $forward = $env->{'HTTP_X_FORWARDED_FOR'})) {
[split(/(?:\s*,\s*|\s+)/, $forward, 0)]->[0];
}
else {
$env->{'REMOTE_ADDR'};
}
} |
|
556
|
0 |
0 |
0 |
try_invoke($back, 'clone') // $back |
|
591
|
0 |
0 |
0 |
$self->{'cf_site_config'}{$name} // $default |
|
598
|
0 |
2 |
0 |
$remote_addr //= do {
my YATT::Lite::WebMVC0::SiteApp::Env $env = $YATT::Lite::WebMVC0::SiteApp::CON->env;
(($env->{'HTTP_X_REAL_IP'} // $env->{'HTTP_X_CLIENT_IP'}) // $env->{'HTTP_X_FORWARDED_FOR'}) // $env->{'REMOTE_ADDR'}
} |
|
603
|
0 |
0 |
2 |
$env->{'HTTP_X_REAL_IP'} // $env->{'HTTP_X_CLIENT_IP'} |
|
|
0 |
0 |
2 |
($env->{'HTTP_X_REAL_IP'} // $env->{'HTTP_X_CLIENT_IP'}) // $env->{'HTTP_X_FORWARDED_FOR'} |
|
|
0 |
0 |
2 |
(($env->{'HTTP_X_REAL_IP'} // $env->{'HTTP_X_CLIENT_IP'}) // $env->{'HTTP_X_FORWARDED_FOR'}) // $env->{'REMOTE_ADDR'} |