| line |
true |
false |
branch |
|
23
|
0 |
7 |
if @_ & 1 |
|
29
|
0 |
7 |
unless $params{'root_dir'} and -d $params{'root_dir'} |
|
31
|
0 |
7 |
if $params{'handlers'} |
|
32
|
7 |
0 |
unless $params{'handlers'} |
|
39
|
0 |
7 |
unless $self->{'vdir'} = 'Filesys::Virtual::Plain'->new({'root_path', $self->{'root_dir'}}) |
|
43
|
7 |
0 |
unless defined $self->{'auto_index'} and $self->{'auto_index'} == 0 |
|
44
|
7 |
0 |
unless $self->{'index_file'} |
|
46
|
2 |
5 |
if $self->{'alias_path'} |
|
48
|
2 |
5 |
if $self->{'prefix_fix'} |
|
59
|
0 |
7 |
defined $options && ref $options eq 'HASH' ? : |
|
80
|
0 |
7 |
if ($self->{'alias'}) { } |
|
99
|
0 |
30 |
unless $response and $response->isa('HTTP::Response') |
|
101
|
0 |
30 |
unless ($request and $request->isa('HTTP::Request')) |
|
109
|
10 |
20 |
if $self->{'prefix_path'} |
|
110
|
10 |
20 |
if $self->{'prefix_fix'} |
|
113
|
18 |
12 |
if ($self->{'vdir'}->test('d', $realpath)) |
|
114
|
6 |
12 |
unless ($path =~ m[/$]) |
|
119
|
0 |
12 |
if ($self->{'auto_index'} and not $self->{'vdir'}->test('e', $realpath . $self->{'index_file'})) |
|
123
|
6 |
6 |
if ($self->{'vdir'}->test('e', $realpath . $self->{'index_file'})) |
|
125
|
0 |
6 |
if ($suffix) |
|
145
|
3 |
9 |
if ($self->{'vdir'}->test('e', $realpath)) |
|
147
|
3 |
0 |
if ($suffix) |
|
167
|
21 |
6 |
if defined $response |
|
179
|
0 |
7 |
if ($self->{'alias'}) { } |
|
200
|
0 |
6 |
unless defined $value |
|
207
|
0 |
0 |
unless defined $value |
|
219
|
0 |
9 |
unless $response->isa('HTTP::Response') |
|
234
|
0 |
6 |
unless $response->isa('HTTP::Response') |
|
251
|
0 |
6 |
unless $response->isa('HTTP::Response') |
|
266
|
0 |
0 |
if $self->{'prefix_path'} |
|
267
|
0 |
0 |
if $self->{'prefix_fix'} |
|
270
|
0 |
0 |
if $item =~ /^\./ |
|
296
|
0 |
6 |
if ($error) { } |
|
301
|
0 |
6 |
unless ($mimetype) |
|
302
|
0 |
0 |
if ($self->{'mm'}) { } |
|
323
|
2 |
4 |
if $self->{'prefix_path'} |
|
324
|
2 |
4 |
if $self->{'prefix_fix'} |
|
328
|
6 |
0 |
if (my $fh = $self->{'vdir'}->open_read($realpath)) { } |
|
330
|
0 |
6 |
if ($^O eq 'MSWin32' or $self->{'blocking'}) { } |
|
333
|
0 |
0 |
unless ($mimetype) |
|
334
|
0 |
0 |
if ($self->{'mm'}) { } |
|
376
|
0 |
3 |
unless ref $handler and ref $handler eq 'HASH' |
|
379
|
0 |
3 |
unless ref $handler->{$ext} eq 'HASH' |
|
381
|
0 |
3 |
unless $handler->{$ext}{'SESSION'} |
|
383
|
0 |
3 |
unless $handler->{$ext}{'EVENT'} |
|
385
|
0 |
3 |
if UNIVERSAL::isa($handler->{$ext}{'SESSION'}, 'POE::Session') |