| line |
true |
false |
branch |
|
26
|
0 |
0 |
@_ == 1 ? : |
|
34
|
0 |
0 |
unless defined $name |
|
38
|
0 |
0 |
ref $aliases eq 'ARRAY' ? : |
|
45
|
0 |
0 |
if (my $docroot = $$args{'documents'}) |
|
46
|
0 |
0 |
unless 'File::Spec'->file_name_is_absolute($docroot) |
|
49
|
0 |
0 |
unless -d $docroot |
|
56
|
0 |
0 |
ref $dirs eq 'ARRAY' ? : |
|
59
|
0 |
0 |
if (not exists $$args{'user_dirs'}) { } |
|
|
0 |
0 |
elsif ($ud = $$args{'user_dirs'}) { } |
|
62
|
0 |
0 |
if (ref $ud eq 'HASH') { } |
|
|
0 |
0 |
elsif (not $ud->isa('HTTP::Server::Directory::UserDirs')) { } |
|
72
|
0 |
0 |
defined $if ? : |
|
|
0 |
0 |
ref $if eq 'ARRAY' ? : |
|
90
|
0 |
0 |
unless $host eq $self->name |
|
98
|
0 |
0 |
if ($uri ne $req->uri) |
|
100
|
0 |
0 |
unless $self->requestForMe($uri) |
|
105
|
0 |
0 |
unless my $tree = $self->directoryOf($path) |
|
108
|
0 |
0 |
unless $tree->allow($conn->client, $conn->session, $req, $uri) |
|
112
|
0 |
0 |
if (my $handler = $$self{'HSV_handlers'}{$path}) |
|
118
|
0 |
0 |
if -f $item |
|
121
|
0 |
0 |
unless -d _ |
|
125
|
0 |
0 |
unless substr($item, -1) eq '/' |
|
129
|
0 |
0 |
if -f $item . $if |
|
133
|
0 |
0 |
unless $$self{'HSV_dirlist'} |
|
140
|
0 |
0 |
if UNIVERSAL::isa($list, 'HTTP::Response') |
|
150
|
0 |
0 |
if $dir ne '/' |
|
188
|
0 |
0 |
if ($HTTP::Server::VirtualHost::EUID == 0 and substr($uri->path, 0, 2) eq '/~') |
|
203
|
0 |
0 |
$dir ? : |
|
209
|
0 |
0 |
@_ == 1 ? : |
|
211
|
0 |
0 |
if exists $$self{'HSV_dirs'}{$path} |
|
220
|
0 |
0 |
if $path =~ m[^/\~] |
|
227
|
0 |
0 |
if $$dirs{$path} |
|
228
|
0 |
0 |
unless $path =~ s[/[^/]+$][] |
|
230
|
0 |
0 |
$$dirs{'/'} ? : |