| line |
true |
false |
branch |
|
24
|
0 |
15 |
if ($ENV{'MOD_PERL'})
|
|
50
|
0 |
8 |
unless defined $file and length $file
|
|
52
|
8 |
0 |
unless length $self->{'base_dir'}
|
|
57
|
0 |
8 |
unless $self->SUPER::init(@_)
|
|
60
|
3 |
5 |
if (length $self->{'base_file'}) { }
|
|
|
4 |
1 |
elsif (not length $self->{'base_dir'}) { }
|
|
62
|
0 |
3 |
if (-d $self->{'base_file'}) { }
|
|
79
|
0 |
8 |
unless $self->filename($file)
|
|
103
|
0 |
11 |
if ($r) { }
|
|
105
|
0 |
0 |
if @_
|
|
110
|
2 |
9 |
if @_
|
|
120
|
9 |
10 |
if (@_)
|
|
123
|
0 |
9 |
unless defined $newfile and length $newfile
|
|
127
|
0 |
19 |
if ($r) { }
|
|
129
|
0 |
0 |
if (defined $newfile) { }
|
|
|
0 |
0 |
elsif (not length $self->{'filename'}) { }
|
|
132
|
0 |
0 |
$r->is_initial_req ? :
|
|
136
|
0 |
0 |
if ($rr->status == 'Apache2::Const::HTTP_OK' and $rr->finfo and $rr->finfo->filetype != 'APR::Const::FILETYPE_NOFILE') { }
|
|
144
|
0 |
0 |
if ($finfo)
|
|
167
|
9 |
10 |
if (defined $newfile)
|
|
170
|
5 |
4 |
unless substr($base_dir, -length($DIR_SEP), length $DIR_SEP) eq $DIR_SEP
|
|
181
|
2 |
7 |
unless ($finfo->exists)
|
|
200
|
9 |
16 |
if (@_) { }
|
|
|
0 |
16 |
elsif (not $self->{'finfo'}) { }
|
|
203
|
0 |
9 |
unless defined $newfile and length $newfile
|
|
209
|
0 |
0 |
unless $newfile
|
|
212
|
9 |
16 |
if (defined $newfile)
|
|
214
|
0 |
9 |
$r ? :
|
|
216
|
0 |
9 |
unless $self->{'finfo'}
|
|
217
|
0 |
9 |
unless $self->{'finfo'}
|
|
237
|
0 |
1 |
unless scalar @segments
|
|
240
|
0 |
1 |
$r ? :
|
|
247
|
4 |
9 |
if (@_)
|
|
251
|
0 |
4 |
if (&Scalar::Util::blessed($this) and $this->isa('URI::file')) { }
|
|
|
1 |
3 |
elsif (not 'File::Spec'->file_name_is_absolute($this)) { }
|