| line |
true |
false |
branch |
|
30
|
0 |
15 |
if ($ENV{'MOD_PERL'})
|
|
60
|
129 |
0 |
unless length $self->{'base_uri'}
|
|
71
|
0 |
129 |
unless $self->SUPER::init(@_)
|
|
78
|
0 |
129 |
unless length $self->{'document_root'}
|
|
79
|
0 |
129 |
unless length $self->{'base_uri'}
|
|
80
|
0 |
129 |
unless length $self->{'document_uri'}
|
|
92
|
0 |
0 |
if length $self->{'base_dir'}
|
|
94
|
0 |
0 |
unless length $self->{'base_uri'}
|
|
96
|
0 |
0 |
unless length $base
|
|
100
|
0 |
0 |
unless scalar @segments
|
|
105
|
0 |
0 |
if ($r) { }
|
|
108
|
0 |
0 |
if (not defined $rr) { }
|
|
|
0 |
0 |
elsif ($rr->status != 'Apache2::Const::HTTP_OK') { }
|
|
|
0 |
0 |
elsif ($rr->finfo->filetype == 'APR::Const::FILETYPE_NOFILE') { }
|
|
163
|
12 |
16 |
if (@_) { }
|
|
|
3 |
13 |
elsif (not ref $self->{'base_uri'}) { }
|
|
172
|
13 |
15 |
unless (length $new)
|
|
183
|
0 |
15 |
if ($r) { }
|
|
187
|
0 |
0 |
if (not defined $rr) { }
|
|
|
0 |
0 |
elsif ($rr->status != 'Apache2::Const::HTTP_OK') { }
|
|
|
0 |
0 |
elsif ($rr->finfo->filetype == 'APR::Const::FILETYPE_NOFILE') { }
|
|
221
|
0 |
0 |
if ($rr->finfo->filetype == 'APR::Const::FILETYPE_DIR')
|
|
233
|
0 |
15 |
if (not defined $ref) { }
|
|
|
0 |
15 |
elsif ($ref->{'code'} != 200) { }
|
|
255
|
1 |
14 |
$ref->{'path_info'} ? :
|
|
256
|
0 |
15 |
if $ref->{'query_string'}
|
|
258
|
5 |
10 |
if -d $ref->{'path'}
|
|
282
|
0 |
220 |
if ($r) { }
|
|
284
|
0 |
0 |
if @_
|
|
289
|
146 |
74 |
if @_
|
|
302
|
0 |
1 |
if -e "$doc_root$doc_path" and -d _
|
|
317
|
0 |
155 |
if ($r) { }
|
|
319
|
0 |
0 |
if (@_) { }
|
|
|
0 |
0 |
elsif (not length $self->{'document_path'}) { }
|
|
323
|
0 |
0 |
$r->is_initial_req ? :
|
|
325
|
0 |
0 |
unless (defined $rr)
|
|
336
|
0 |
0 |
unless $caller eq "${class}::document_uri"
|
|
348
|
146 |
9 |
if (@_)
|
|
354
|
0 |
146 |
unless $caller eq "${class}::document_uri"
|
|
365
|
129 |
489 |
if (@_)
|
|
370
|
4 |
125 |
unless ('File::Spec'->file_name_is_absolute($new))
|
|
376
|
0 |
618 |
if ($r) { }
|
|
378
|
0 |
0 |
if defined $new
|
|
384
|
129 |
489 |
if (defined $new)
|
|
398
|
129 |
107 |
if (@_)
|
|
403
|
13 |
116 |
unless (substr("$new", 0, 1) eq '/')
|
|
414
|
0 |
236 |
if ($r) { }
|
|
418
|
0 |
0 |
if (length "$new") { }
|
|
|
0 |
0 |
elsif ($self->{'_uri_reset'}) { }
|
|
|
0 |
0 |
elsif (not length $self->{'document_uri'}) { }
|
|
420
|
0 |
0 |
$r->is_initial_req ? :
|
|
422
|
0 |
0 |
unless (defined $rr)
|
|
434
|
0 |
0 |
if scalar $rr->args
|
|
435
|
0 |
0 |
if $rr->path_info
|
|
441
|
0 |
0 |
if length scalar $r->args
|
|
454
|
0 |
0 |
if scalar $r->args
|
|
455
|
0 |
0 |
if $r->path_info
|
|
462
|
129 |
107 |
if (length "$new")
|
|
466
|
0 |
129 |
if not length $self->{'document_uri'} and $self->{'_path_info_processed'}
|
|
467
|
0 |
129 |
if not length $self->{'document_uri'} and $self->{'_path_info_processed'}
|
|
470
|
146 |
90 |
unless ($self->{'_path_info_processed'})
|
|
475
|
146 |
0 |
if (defined($res = $self->_find_path_info($v))) { }
|
|
485
|
3 |
143 |
if length $res->{'path_info'}
|
|
487
|
21 |
125 |
if length $res->{'query_string'}
|
|
499
|
3 |
233 |
if ($self->{'_uri_reset'})
|
|
504
|
2 |
1 |
if $self->query_string
|
|
517
|
0 |
147 |
unless (@_)
|
|
520
|
0 |
0 |
if ($r) { }
|
|
527
|
0 |
0 |
unless (scalar keys %{$$self{'_env'};})
|
|
535
|
0 |
147 |
unless length $name
|
|
538
|
0 |
147 |
if scalar @_ and &Scalar::Util::reftype($_[-1]) eq 'HASH'
|
|
541
|
0 |
147 |
if ($r) { }
|
|
544
|
0 |
0 |
if @_
|
|
551
|
17 |
130 |
unless (scalar keys %{$$self{'_env'};})
|
|
557
|
147 |
0 |
if (@_)
|
|
561
|
0 |
147 |
if ($self->can($meth))
|
|
579
|
147 |
130 |
if (@_)
|
|
582
|
0 |
147 |
unless defined $newfile and length $newfile
|
|
585
|
0 |
277 |
if ($r) { }
|
|
587
|
0 |
0 |
if (defined $newfile) { }
|
|
|
0 |
0 |
elsif (not length $self->{'filename'}) { }
|
|
590
|
0 |
0 |
$r->is_initial_req ? :
|
|
592
|
0 |
0 |
if ($rr->status == 'Apache2::Const::HTTP_OK') { }
|
|
609
|
0 |
0 |
unless $caller eq "${class}::document_uri"
|
|
618
|
147 |
130 |
if (defined $newfile)
|
|
627
|
147 |
0 |
if defined $try
|
|
629
|
0 |
147 |
unless ('File::Spec'->file_name_is_absolute($newfile))
|
|
644
|
147 |
0 |
if (index($self->{'filename'}, $self->document_root) != -1) { }
|
|
653
|
1 |
146 |
unless $caller eq "${class}::document_uri"
|
|
668
|
147 |
9 |
if (@_) { }
|
|
|
0 |
9 |
elsif (not $self->{'finfo'}) { }
|
|
671
|
0 |
147 |
unless defined $newfile and length $newfile
|
|
676
|
0 |
0 |
unless $newfile
|
|
679
|
147 |
9 |
if (defined $newfile)
|
|
682
|
0 |
147 |
$r ? :
|
|
683
|
0 |
147 |
unless $self->{'finfo'}
|
|
692
|
0 |
0 |
if @_ and not ref $_[0] and scalar(@_) % 2
|
|
694
|
0 |
0 |
!(scalar(@_) % 2) ? :
|
|
|
0 |
0 |
&Scalar::Util::reftype($_[0]) eq 'HASH' ? :
|
|
699
|
0 |
0 |
unless length $uri
|
|
700
|
0 |
0 |
unless length $uri
|
|
711
|
0 |
0 |
if (not defined $next_r) { }
|
|
722
|
0 |
0 |
if (defined $rr and $rr->status == 'Apache2::Const::HTTP_MOVED_PERMANENTLY' || $rr->status == 'Apache2::Const::HTTP_MOVED_TEMPORARILY')
|
|
729
|
0 |
0 |
unless (exists $hdrs->{'Location'} and length $hdrs->{'Location'})
|
|
741
|
0 |
0 |
if (++$self->{'_lookup_looping'} > 1) { }
|
|
754
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
length $@ ? :
|
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
|
0 |
0 |
if ($Nice::Try::DIED)
|
|
759
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
$Nice::Try::WANTARRAY ? :
|
|
|
0 |
0 |
if (defined $Nice::Try::WANTARRAY and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
|
|
767
|
0 |
2 |
unless &Scalar::Util::blessed($self)
|
|
769
|
0 |
2 |
if scalar @_ == 1 and not defined $_[0]
|
|
770
|
2 |
0 |
if (scalar @_)
|
|
773
|
2 |
0 |
!(scalar(@_) % 2) ? :
|
|
|
0 |
2 |
&Scalar::Util::reftype($_[0]) eq 'HASH' ? :
|
|
783
|
0 |
2 |
if not $p->{'apache_request'} and $r
|
|
784
|
2 |
0 |
if not $p->{'document_root'} and length $d
|
|
785
|
2 |
0 |
if not $p->{'base_uri'} and length $b
|
|
786
|
0 |
2 |
unless $p->{'document_uri'}
|
|
787
|
2 |
0 |
unless length $p->{'debug'}
|
|
801
|
15 |
323 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
323 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
338 |
length $@ ? :
|
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
|
0 |
338 |
if ($Nice::Try::DIED)
|
|
804
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
15 |
323 |
$Nice::Try::WANTARRAY ? :
|
|
|
338 |
0 |
if (defined $Nice::Try::WANTARRAY and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
|
|
817
|
0 |
2 |
unless scalar @segments
|
|
829
|
0 |
10 |
if ($r) { }
|
|
831
|
0 |
0 |
if (@_)
|
|
837
|
0 |
0 |
unless $caller eq "${class}::document_uri"
|
|
844
|
4 |
6 |
if (@_)
|
|
850
|
1 |
3 |
unless $caller eq "${class}::document_uri"
|
|
863
|
0 |
34 |
if ($r) { }
|
|
865
|
0 |
0 |
if (@_)
|
|
872
|
0 |
0 |
unless $caller eq "${class}::document_uri"
|
|
878
|
22 |
12 |
if (@_)
|
|
884
|
1 |
21 |
unless $caller eq "${class}::document_uri"
|
|
893
|
15 |
15 |
if $self->{'root'}
|
|
905
|
0 |
15 |
if $self->apache_request
|
|
929
|
0 |
161 |
unless length $sep
|
|
930
|
0 |
161 |
if (&Scalar::Util::blessed($uri_path) and $uri_path->isa('URI::file'))
|
|
939
|
0 |
161 |
if &Scalar::Util::blessed($doc_root) and $doc_root->isa('URI::file')
|
|
940
|
0 |
161 |
if substr($doc_root, -length($sep), length $sep) eq $sep
|
|
942
|
0 |
161 |
if substr($uri_path, 0, 1) ne '/'
|
|
944
|
150 |
11 |
if (-e "$doc_root$path") { }
|
|
|
0 |
11 |
elsif ($uri_path eq '/') { }
|
|
956
|
0 |
0 |
-e $doc_root ? :
|
|
970
|
0 |
20 |
$sep ne '/' ? :
|
|
|
20 |
0 |
unless $pathinfo
|
|
973
|
7 |
13 |
if (not $pathinfo and -d "$doc_root$trypath" and not -e "$doc_root$trypath/$p") { }
|
|
|
9 |
4 |
elsif (not $pathinfo and -e "$doc_root$trypath/$p") { }
|
|
978
|
1 |
6 |
length $trypath ? :
|
|
992
|
4 |
0 |
unless $pathinfo
|
|
1014
|
0 |
447 |
unless length $name
|
|
1015
|
129 |
318 |
unless ref $self->{'_env'}
|
|
1018
|
447 |
0 |
if (@_)
|
|
1021
|
0 |
447 |
if $r
|
|
1031
|
0 |
0 |
unless length "$uri"
|
|
1032
|
0 |
0 |
unless (&Scalar::Util::blessed($uri) and $uri->isa('URI'))
|
|
1036
|
0 |
0 |
if (substr($uri->path, -1, 1) eq '/' and length $uri->path > 1)
|