| line |
l |
!l |
condition |
|
126
|
0 |
6 |
do {
my $webdyne_conf_fn = 'File::Spec'->catfile($cwd_dn, sprintf('.%s', $WebDyne::Request::Fake::WEBDYNE_CONF_FN));
'???';
if (-f $webdyne_conf_fn) {
'???';
my $webdyne_conf_hr = do $webdyne_conf_fn || warn("unable to read document root dir_config constant file, $!");
'???';
$webdyne_conf_hr->{'WebDyne::Constant'}{'WEBDYNE_DIR_CONFIG'};
}
} || {} |
|
283
|
19 |
0 |
$r->{$d} ||= {} |
|
329
|
0 |
0 |
ref($r)->new('filename', $fn, 'main', $r) || (return err()) |
|
344
|
0 |
0 |
'WebDyne::Request::PSGI::Static'->new('filename', $fn, 'prev', $r) || (return err()) |
|
353
|
0 |
0 |
ref($r)->new('filename', $fn, 'prev', $r) || (return err()) |
|
401
|
0 |
0 |
$r->{'_notes'} ||= {} |
|
430
|
16 |
2 |
$r->{'select'} || \*STDOUT |
|
441
|
0 |
14 |
$r->{'register_cleanup'} ||= [] |
|
479
|
0 |
16 |
$r->{'status'} || 200 |
|
543
|
0 |
0 |
$r->{'select'} || \*STDOUT |
|
567
|
0 |
0 |
$handler ? $r->{'handler'} = $handler : $r->{'handler'} ||= "default-handler" |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
126
|
43 |
6 |
0 |
$Package{'_dir_config'}{$cwd_dn} ||= do {
my $webdyne_conf_fn = 'File::Spec'->catfile($cwd_dn, sprintf('.%s', $WebDyne::Request::Fake::WEBDYNE_CONF_FN));
'???';
if (-f $webdyne_conf_fn) {
'???';
my $webdyne_conf_hr = do $webdyne_conf_fn || warn("unable to read document root dir_config constant file, $!");
'???';
$webdyne_conf_hr->{'WebDyne::Constant'}{'WEBDYNE_DIR_CONFIG'};
}
} || {} |
|
190
|
47 |
0 |
0 |
$ENV{'WebDyneServer'} || $ENV{'HOSTNAME'} || $ENV{'SERVER_NAME'} |
|
265
|
41 |
6 |
0 |
$Package{'_cwd'} ||= fastcwd() |
|
470
|
0 |
0 |
0 |
ref $self || $self |
|
494
|
0 |
0 |
0 |
$r->{'document_root'} || ($ENV{'DOCUMENT_ROOT'} || fastcwd()) |
|
513
|
2 |
1 |
64 |
$self->{'location'} || $ENV{'WebDyneLocation'} |
|
594
|
27 |
22 |
0 |
$r->{'_cwd'} ||= do {
'???';
my $fn = $r->filename;
my $dn;
if (-d ($dn = "File::Spec"->rel2abs($fn))) {
'???';
$dn;
}
else {
$dn = ('File::Spec'->splitpath($fn))[1] || fastcwd();
'???';
$dn;
}
} |
|
601
|
20 |
0 |
0 |
('File::Spec'->splitpath($fn))[1] || fastcwd() |