| line |
true |
false |
branch |
|
29
|
0 |
15 |
if ($ENV{'MOD_PERL'})
|
|
58
|
129 |
0 |
unless length $self->{'base_uri'}
|
|
69
|
0 |
129 |
unless $self->SUPER::init(@_)
|
|
76
|
0 |
129 |
unless length $self->{'document_root'}
|
|
77
|
0 |
129 |
unless length $self->{'base_uri'}
|
|
78
|
0 |
129 |
unless length $self->{'document_uri'}
|
|
90
|
0 |
0 |
if length $self->{'base_dir'}
|
|
92
|
0 |
0 |
unless length $self->{'base_uri'}
|
|
94
|
0 |
0 |
unless length $base
|
|
98
|
0 |
0 |
unless scalar @segments
|
|
103
|
0 |
0 |
if ($r) { }
|
|
106
|
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') { }
|
|
161
|
12 |
16 |
if (@_) { }
|
|
|
3 |
13 |
elsif (not ref $self->{'base_uri'}) { }
|
|
170
|
13 |
15 |
unless (length $new)
|
|
181
|
0 |
15 |
if ($r) { }
|
|
185
|
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') { }
|
|
219
|
0 |
0 |
if ($rr->finfo->filetype == 'APR::Const::FILETYPE_DIR')
|
|
231
|
0 |
15 |
if (not defined $ref) { }
|
|
|
0 |
15 |
elsif ($ref->{'code'} != 200) { }
|
|
253
|
1 |
14 |
$ref->{'path_info'} ? :
|
|
254
|
0 |
15 |
if $ref->{'query_string'}
|
|
256
|
5 |
10 |
if -d $ref->{'path'}
|
|
280
|
0 |
220 |
if ($r) { }
|
|
282
|
0 |
0 |
if @_
|
|
287
|
146 |
74 |
if @_
|
|
300
|
0 |
1 |
if -e "$doc_root$doc_path" and -d _
|
|
315
|
0 |
155 |
if ($r) { }
|
|
317
|
0 |
0 |
if (@_) { }
|
|
|
0 |
0 |
elsif (not length $self->{'document_path'}) { }
|
|
321
|
0 |
0 |
$r->is_initial_req ? :
|
|
323
|
0 |
0 |
unless (defined $rr)
|
|
334
|
0 |
0 |
unless $caller eq "${class}::document_uri"
|
|
346
|
146 |
9 |
if (@_)
|
|
352
|
0 |
146 |
unless $caller eq "${class}::document_uri"
|
|
363
|
129 |
342 |
if (@_)
|
|
367
|
4 |
125 |
unless (substr($new, 0, 1) eq '/')
|
|
373
|
0 |
471 |
if ($r) { }
|
|
375
|
0 |
0 |
if defined $new
|
|
381
|
129 |
342 |
if (defined $new)
|
|
395
|
129 |
106 |
if (@_)
|
|
400
|
13 |
116 |
unless (substr("$new", 0, 1) eq '/')
|
|
411
|
0 |
235 |
if ($r) { }
|
|
415
|
0 |
0 |
if (length "$new") { }
|
|
|
0 |
0 |
elsif ($self->{'_uri_reset'}) { }
|
|
|
0 |
0 |
elsif (not length $self->{'document_uri'}) { }
|
|
417
|
0 |
0 |
$r->is_initial_req ? :
|
|
419
|
0 |
0 |
unless (defined $rr)
|
|
431
|
0 |
0 |
if scalar $rr->args
|
|
432
|
0 |
0 |
if $rr->path_info
|
|
438
|
0 |
0 |
if length scalar $r->args
|
|
451
|
0 |
0 |
if scalar $r->args
|
|
452
|
0 |
0 |
if $r->path_info
|
|
459
|
129 |
106 |
if (length "$new")
|
|
463
|
0 |
129 |
if not length $self->{'document_uri'} and $self->{'_path_info_processed'}
|
|
464
|
0 |
129 |
if not length $self->{'document_uri'} and $self->{'_path_info_processed'}
|
|
467
|
146 |
89 |
unless ($self->{'_path_info_processed'})
|
|
472
|
146 |
0 |
if (defined($res = $self->_find_path_info($v))) { }
|
|
482
|
3 |
143 |
if length $res->{'path_info'}
|
|
484
|
21 |
125 |
if length $res->{'query_string'}
|
|
496
|
3 |
232 |
if ($self->{'_uri_reset'})
|
|
501
|
2 |
1 |
if $self->query_string
|
|
514
|
0 |
147 |
unless (@_)
|
|
517
|
0 |
0 |
if ($r) { }
|
|
524
|
0 |
0 |
unless (scalar keys %{$$self{'_env'};})
|
|
532
|
0 |
147 |
unless length $name
|
|
535
|
0 |
147 |
if scalar @_ and &Scalar::Util::reftype($_[-1]) eq 'HASH'
|
|
538
|
0 |
147 |
if ($r) { }
|
|
541
|
0 |
0 |
if @_
|
|
548
|
17 |
130 |
unless (scalar keys %{$$self{'_env'};})
|
|
554
|
147 |
0 |
if (@_)
|
|
558
|
0 |
147 |
if ($self->can($meth))
|
|
576
|
147 |
130 |
if (@_)
|
|
579
|
0 |
147 |
unless defined $newfile and length $newfile
|
|
582
|
0 |
277 |
if ($r) { }
|
|
584
|
0 |
0 |
if (defined $newfile) { }
|
|
|
0 |
0 |
elsif (not length $self->{'filename'}) { }
|
|
587
|
0 |
0 |
$r->is_initial_req ? :
|
|
589
|
0 |
0 |
if ($rr->status == 'Apache2::Const::HTTP_OK') { }
|
|
606
|
0 |
0 |
unless $caller eq "${class}::document_uri"
|
|
615
|
147 |
130 |
if (defined $newfile)
|
|
619
|
147 |
0 |
if defined $try
|
|
626
|
1 |
146 |
unless $caller eq "${class}::document_uri"
|
|
641
|
147 |
9 |
if (@_) { }
|
|
|
0 |
9 |
elsif (not $self->{'finfo'}) { }
|
|
644
|
0 |
147 |
unless defined $newfile and length $newfile
|
|
649
|
0 |
0 |
unless $newfile
|
|
652
|
147 |
9 |
if (defined $newfile)
|
|
655
|
0 |
147 |
$r ? :
|
|
656
|
0 |
147 |
unless $self->{'finfo'}
|
|
665
|
0 |
0 |
if @_ and not ref $_[0] and scalar(@_) % 2
|
|
667
|
0 |
0 |
!(scalar(@_) % 2) ? :
|
|
|
0 |
0 |
&Scalar::Util::reftype($_[0]) eq 'HASH' ? :
|
|
672
|
0 |
0 |
unless length $uri
|
|
673
|
0 |
0 |
unless length $uri
|
|
684
|
0 |
0 |
if (not defined $next_r) { }
|
|
695
|
0 |
0 |
if (defined $rr and $rr->status == 'Apache2::Const::HTTP_MOVED_PERMANENTLY' || $rr->status == 'Apache2::Const::HTTP_MOVED_TEMPORARILY')
|
|
702
|
0 |
0 |
unless (exists $hdrs->{'Location'} and length $hdrs->{'Location'})
|
|
714
|
0 |
0 |
if (++$self->{'_lookup_looping'} > 1) { }
|
|
727
|
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)
|
|
732
|
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'))
|
|
740
|
0 |
2 |
unless &Scalar::Util::blessed($self)
|
|
742
|
0 |
2 |
if scalar @_ == 1 and not defined $_[0]
|
|
743
|
2 |
0 |
if (scalar @_)
|
|
746
|
2 |
0 |
!(scalar(@_) % 2) ? :
|
|
|
0 |
2 |
&Scalar::Util::reftype($_[0]) eq 'HASH' ? :
|
|
756
|
0 |
2 |
if not $p->{'apache_request'} and $r
|
|
757
|
2 |
0 |
if not $p->{'document_root'} and length $d
|
|
758
|
2 |
0 |
if not $p->{'base_uri'} and length $b
|
|
759
|
0 |
2 |
unless $p->{'document_uri'}
|
|
760
|
2 |
0 |
unless length $p->{'debug'}
|
|
774
|
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)
|
|
777
|
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'))
|
|
790
|
0 |
2 |
unless scalar @segments
|
|
802
|
0 |
10 |
if ($r) { }
|
|
804
|
0 |
0 |
if (@_)
|
|
810
|
0 |
0 |
unless $caller eq "${class}::document_uri"
|
|
817
|
4 |
6 |
if (@_)
|
|
823
|
1 |
3 |
unless $caller eq "${class}::document_uri"
|
|
836
|
0 |
34 |
if ($r) { }
|
|
838
|
0 |
0 |
if (@_)
|
|
845
|
0 |
0 |
unless $caller eq "${class}::document_uri"
|
|
851
|
22 |
12 |
if (@_)
|
|
857
|
1 |
21 |
unless $caller eq "${class}::document_uri"
|
|
866
|
15 |
15 |
if $self->{'root'}
|
|
878
|
0 |
15 |
if $self->apache_request
|
|
901
|
0 |
161 |
if (&Scalar::Util::blessed($path) and $path->isa('URI::file'))
|
|
908
|
0 |
161 |
if &Scalar::Util::blessed($doc_root) and $doc_root->isa('URI::file')
|
|
909
|
0 |
161 |
if substr($doc_root, -1, 1) eq '/'
|
|
911
|
0 |
161 |
if substr($path, 0, 1) ne '/'
|
|
913
|
150 |
11 |
if (-e "$doc_root$path") { }
|
|
|
0 |
11 |
elsif ($path eq '/') { }
|
|
925
|
0 |
0 |
-e $doc_root ? :
|
|
938
|
20 |
0 |
unless $pathinfo
|
|
941
|
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") { }
|
|
946
|
1 |
6 |
length $trypath ? :
|
|
959
|
4 |
0 |
unless $pathinfo
|
|
981
|
0 |
447 |
unless length $name
|
|
982
|
129 |
318 |
unless ref $self->{'_env'}
|
|
985
|
447 |
0 |
if (@_)
|
|
988
|
0 |
447 |
if $r
|
|
998
|
0 |
0 |
unless length "$uri"
|
|
999
|
0 |
0 |
unless (&Scalar::Util::blessed($uri) and $uri->isa('URI'))
|
|
1003
|
0 |
0 |
if (substr($uri->path, -1, 1) eq '/' and length $uri->path > 1)
|