| line |
true |
false |
branch |
|
33
|
0 |
0 |
@_ == 1 ? : |
|
41
|
0 |
0 |
unless defined $name |
|
46
|
0 |
0 |
defined $aliases ? : |
|
|
0 |
0 |
$aliases eq 'AUTO' ? : |
|
|
0 |
0 |
ref $aliases eq 'ARRAY' ? : |
|
60
|
0 |
0 |
ref $dirs eq 'ARRAY' ? : |
|
64
|
0 |
0 |
ref $proxies eq 'ARRAY' ? : |
|
71
|
0 |
0 |
unless $dirs |
|
73
|
0 |
0 |
if ref $dirs eq 'HASH' |
|
76
|
0 |
0 |
if $dirs->isa('Any::Daemon::HTTP::UserDirs') |
|
85
|
0 |
0 |
unless $docroot |
|
87
|
0 |
0 |
unless 'File::Spec'->file_name_is_absolute($docroot) |
|
91
|
0 |
0 |
unless -d $docroot |
|
109
|
0 |
0 |
if $3 |
|
110
|
0 |
0 |
if $1 ne $2 |
|
111
|
0 |
0 |
if $1 ne $2 and $3 |
|
119
|
0 |
0 |
if @_ == 1 and not defined $_[0] |
|
123
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
129
|
0 |
0 |
unless substr($k, 0, 1) eq '/' |
|
134
|
0 |
0 |
unless (ref $v) |
|
136
|
0 |
0 |
unless $self->can($method) |
|
153
|
0 |
0 |
ref $_[0] ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
158
|
0 |
0 |
if $handler |
|
162
|
0 |
0 |
if (my $handler = $h->{'/'}) |
|
176
|
0 |
0 |
if ($new_uri ne $uri) |
|
182
|
0 |
0 |
if (my $redir = $self->mustRedirect($new_uri)) |
|
192
|
0 |
0 |
$source ? : |
|
193
|
0 |
0 |
if $resp |
|
197
|
0 |
0 |
unless $resp |
|
199
|
0 |
0 |
unless &blessed($resp) and $resp->isa('HTTP::Response') |
|
203
|
0 |
0 |
unless $resp->code eq 200 |
|
209
|
0 |
0 |
if $has_etag and $has_etag eq $etag |
|
222
|
0 |
0 |
unless $rew |
|
223
|
0 |
0 |
if ref $rew eq 'CODE' |
|
225
|
0 |
0 |
if (ref $rew eq 'HASH') |
|
228
|
0 |
0 |
unless my $uri = $_[1] |
|
229
|
0 |
0 |
unless exists $lookup{$uri->path} |
|
234
|
0 |
0 |
unless (ref $rew) |
|
236
|
0 |
0 |
if $self->can($rew) |
|
258
|
0 |
0 |
unless $new_uri and $new_uri ne $uri |
|
268
|
0 |
0 |
unless $red |
|
269
|
0 |
0 |
if ref $red eq 'CODE' |
|
271
|
0 |
0 |
if (ref $red eq 'HASH') |
|
274
|
0 |
0 |
unless my $uri = $_[1] |
|
275
|
0 |
0 |
unless exists $lookup{$uri->path} |
|
280
|
0 |
0 |
unless (ref $red) |
|
282
|
0 |
0 |
if $self->can($red) |
|
295
|
0 |
0 |
unless $source |
|
300
|
0 |
0 |
if (my $old = exists $sources->{$path}) |
|
317
|
0 |
0 |
$dir ? : |
|
323
|
0 |
0 |
@_ == 1 && &blessed($_[0]) ? : |
|
332
|
0 |
0 |
@_ > 1 || index($_[0], '/') == -1 ? : |
|
335
|
0 |
0 |
if substr($path[0], 0, 1) eq '~' |
|
340
|
0 |
0 |
if $dir |
|
345
|
0 |
0 |
$sources->{'/'} ? : |
|
352
|
0 |
0 |
@_ == 1 && &blessed($_[0]) ? : |
|
355
|
0 |
0 |
if $proxy->forwardMap |