| line |
true |
false |
branch |
|
31
|
0 |
3 |
unless DEBUG() |
|
46
|
1 |
0 |
if (my $docroot = DOCUMENT_ROOT() and my $abs = script_abs_path()) |
|
47
|
1 |
0 |
if ($abs =~ s/^$docroot//) |
|
64
|
0 |
0 |
unless defined $rel |
|
66
|
0 |
0 |
if ($rel =~ m[^/]) |
|
74
|
0 |
1 |
unless my $docroot = DOCUMENT_ROOT() |
|
75
|
0 |
1 |
unless my $abs = script_abs_loc() |
|
76
|
0 |
1 |
unless $abs =~ s/^$docroot// |
|
81
|
0 |
3 |
unless my $abs = script_abs_path() |
|
87
|
0 |
1 |
unless my($filename, $ext) = _script_filename() |
|
92
|
0 |
1 |
unless my($filename, $ext) = _script_filename() |
|
93
|
0 |
1 |
unless defined $ext and defined $filename |
|
106
|
0 |
1 |
unless my $abs_script = script_abs_path() |
|
107
|
0 |
1 |
unless my $parent = abs_cgibin() |
|
110
|
1 |
0 |
unless Cwd::Ext::abs_path_is_in($abs_script, $parent) |
|
115
|
0 |
1 |
unless my $abs_script = script_abs_path() |
|
116
|
0 |
1 |
unless my $parent = DOCUMENT_ROOT() |
|
119
|
0 |
1 |
unless Cwd::Ext::abs_path_is_in($abs_script, $parent) |
|
128
|
0 |
2 |
unless my $filename = script_filename() |
|
132
|
2 |
0 |
if ($filename =~ m[^([^/]+)\.(\w+)$]) { } |
|
145
|
3 |
1 |
if defined $ENV{'DOCUMENT_ROOT'} |
|
148
|
0 |
1 |
if _dir_looks_like_docroot($abs_dir) |
|
157
|
0 |
1 |
unless my $docroot = _get_docroot_inside($abs_dir) |
|
167
|
0 |
2 |
if _dir_looks_like_cgibin($abs_dir) |
|
176
|
0 |
2 |
unless my $docroot = _get_cgibin_inside($abs_dir) |
|
186
|
1 |
0 |
unless $abs =~ m[/public_html$|/htdocs{0,1}$|/html$] |
|
191
|
2 |
0 |
unless $abs =~ m[/cgi\-bin$|/cgi$] |
|
201
|
1 |
0 |
if -d $try |
|
212
|
2 |
0 |
if -d $try |
|
222
|
0 |
12 |
unless (defined $abs) |
|
223
|
0 |
0 |
unless defined $ENV{'SCRIPT_NAME'} |
|
227
|
12 |
0 |
unless ($abs =~ m[^/]) |