Branch Coverage

blib/lib/Apache2/SSI.pm
Criterion Covered Total %
branch 334 1208 27.6


line true false branch
21 0 14 if (exists $ENV{'MOD_PERL'} and $MOD_PERL = $ENV{'MOD_PERL'} =~ m[^mod_perl/(\d+\.[\d\.]+)])
200 0 0 if (&Scalar::Util::blessed($_[1]) and $_[1]->isa('Apache2::Filter')) { }
215 0 245 if ref $ref ne 'HASH'
217 71 174 if (@_)
219 0 0 !(@_ % 2) ? :
71 0 ref $_[0] eq 'HASH' ? :
225 245 0 unless exists $opts->{'skip'}
226 174 71 unless exists $opts->{'top'}
227 174 71 unless exists $opts->{'embedded'}
230 155 90 if defined $ref->{'subtype'}
260 24 221 if ($type eq 'comp') { }
48 173 elsif ($type eq 'cond') { }
13 160 elsif ($type eq 'function') { }
3 157 elsif ($type eq 'integercomp') { }
0 157 elsif ($type eq 'join') { }
0 157 elsif ($type eq 'listfunc') { }
0 157 elsif ($type eq 'regany') { }
8 149 elsif ($type eq 'regex') { }
0 149 elsif ($type eq 'regsub') { }
0 149 elsif ($type eq 'split') { }
10 139 elsif ($type eq 'string' and $opts->{'skip'} ne 'string') { }
13 126 elsif ($type eq 'stringcomp') { }
0 126 elsif ($type eq 'sub') { }
36 90 elsif ($type eq 'variable') { }
46 44 elsif ($type eq 'word') { }
44 0 elsif ($type eq 'words') { }
263 22 2 if defined $ref->{'op'}
266 4 20 if ($stype eq 'binary') { }
2 18 elsif ($stype eq 'function') { }
0 18 elsif ($stype eq 'list') { }
6 12 elsif ($stype eq 'regexp') { }
12 0 elsif ($stype eq 'unary') { }
270 1 3 if $ref->{'is_negative'}
272 2 2 if ($op eq 'ipmatch') { }
0 2 elsif ($op eq 'strmatch' or $op eq 'fnmatch') { }
0 2 elsif ($op eq 'strcmatch') { }
319 6 0 exists $$map{$ref->{'op'}} ? :
328 2 10 if ($op eq 'A' or $op eq 'U') { }
0 10 elsif ($op eq 'd' or $op eq 'e' or $op eq 'f' or $op eq 's') { }
0 10 elsif ($op eq 'h' or $op eq 'L') { }
0 10 elsif ($op eq 'F') { }
5 5 elsif ($op eq 'n' or $op eq 'z') { }
2 3 elsif ($op eq 'R') { }
3 0 elsif ($op eq 'T') { }
335 0 2 unless defined $req
340 1 1 if ($req->code != 200) { }
1 0 elsif (-e "$file" and -f "$file" && -r "$file" || -d "$file" && -x "$file") { }
361 0 0 if ($req->code != 200)
379 3 2 $op eq 'z' ? :
389 0 2 if ($self->_is_ip($subnet))
401 3 0 length $word ? :
404 3 0 if length $val
408 2 1 if ($val eq '' or $val eq '0' or $val eq 'off' or $val eq 'false' or $val eq 'no') { }
422 0 48 if ($stype eq 'and') { }
9 39 elsif ($stype eq 'boolean') { }
1 38 elsif ($stype eq 'or') { }
30 8 elsif ($stype eq 'comp') { }
7 1 elsif ($stype eq 'negative') { }
1 0 elsif ($stype eq 'parenthesis') { }
0 0 elsif ($stype eq 'variable') { }
430 5 4 $ref->{'booltype'} eq 'true' ? :
462 0 13 unless defined $func
474 13 0 if ($func =~ /^$SUPPORTED_FUNCTIONS$/i) { }
488 0 3 if (not exists $map_integer->{$op}) { }
504 0 0 if ($ref->{'word_def'}) { }
519 0 0 if ($func =~ /^$SUPPORTED_FUNCTIONS$/i) { }
547 0 0 if ($ref->{'word_def'}) { }
0 0 elsif ($ref->{'list_def'}) { }
562 0 10 $self->trunk ? :
575 8 2 if ($opts->{'top'}) { }
588 0 13 if (not exists $map_binary->{$op}) { }
609 1 35 if ($stype eq 'function') { }
1 34 elsif ($stype eq 'rebackref') { }
34 0 elsif ($stype eq 'variable') { }
622 0 1 $self->_is_number($val) ? :
629 13 21 if (not length $try and length $env->{$var_name})
633 0 34 if (not length $try and defined ${"main::$var_name";})
638 21 13 unless (length $try)
642 20 14 if (not length $try) { }
648 11 1 unless $self->_is_number($try) or $opts->{'embedded'}
660 2 44 if ($stype eq 'digits') { }
5 39 elsif ($stype eq 'ip') { }
0 39 elsif ($stype eq 'dotted') { }
0 39 elsif ($stype eq 'function') { }
0 39 elsif ($stype eq 'join') { }
0 39 elsif ($stype eq 'parens') { }
39 0 elsif ($stype eq 'quote') { }
0 0 elsif ($stype eq 'rebackref') { }
0 0 elsif ($stype eq 'regex') { }
0 0 elsif ($stype eq 'sub') { }
0 0 elsif ($stype eq 'variable') { }
714 1 43 if (length $ref->{'list'}) { }
720 1 0 if (ref $ref->{'words_def'}) { }
724 0 3 unless $that->{'type'} eq 'string' or $that->{'type'} eq 'word' or $that->{'type'} eq 'variable'
728 1 0 $all_string ? :
750 0 0 if $debug > 0
751 0 0 unless $r->content_type eq 'text/html'
753 0 0 if $r->dir_config('Apache2_SSI_NO_CACHE') eq 'on'
774 0 0 if (length($val = $r->dir_config("Apache2_SSI_$key")))
779 0 0 if ($r->dir_config('Apache2_SSI_Expression') eq 'legacy') { }
0 0 elsif ($r->dir_config('Apache2_SSI_Expression') eq 'trunk') { }
800 0 0 unless ($u->code == 'Apache2::Const::HTTP_OK')
808 0 0 if (-s $file >= $max_length)
815 0 0 unless (length $html)
826 0 0 if (not defined $res) { }
837 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)
841 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'))
851 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)
854 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'))
868 0 0 $r->is_initial_req ? :
869 0 0 unless $r->is_initial_req and $main->content_type eq 'text/html'
871 0 0 if $r->dir_config('Apache2_SSI_NO_CACHE') eq 'on'
872 0 0 if $debug > 0
875 0 0 unless ($ctx->{'invoked'})
877 0 0 if $debug > 0
883 0 0 exists $ctx->{'data'} ? :
884 0 0 if $debug > 0
888 0 0 if $debug > 0
892 0 0 if $b->is_eos
895 0 0 if $max_length and length $html >= $max_length
899 0 0 unless ($seen_eos)
902 0 0 if $debug > 0
909 0 0 if ($f->c->keepalive == 'Apache2::Const::CONN_KEEPALIVE')
911 0 0 if $debug > 0
920 0 0 if ($size == 0)
929 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)
933 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'))
936 0 0 unless $main->content_type =~ /\bcharset\n/i
955 0 0 if (length($val = $r->dir_config("Apache2_SSI_$key")))
960 0 0 if ($r->dir_config('Apache2_SSI_Expression') eq 'legacy') { }
0 0 elsif ($r->dir_config('Apache2_SSI_Expression') eq 'trunk') { }
968 0 0 if $debug > 0
979 0 0 if (not defined $res) { }
990 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)
994 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'))
1003 0 0 if $debug > 0
1005 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)
1009 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'))
1021 62 0 if (scalar @_)
1024 62 0 !(scalar(@_) % 2) ? :
0 62 &Scalar::Util::reftype($_[0]) eq 'HASH' ? :
1046 0 62 unless $self->SUPER::init(%$args)
1061 0 62 defined $MOD_PERL ? :
1063 0 62 if ($MOD_PERL and not $r)
1066 0 0 unless ($r = $self->apache_request)
1069 0 0 if ($r) { }
1082 62 0 if (length "$uri") { }
0 0 elsif ($r) { }
0 0 elsif (length $self->env('DOCUMENT_URI')) { }
1100 62 0 if (length $self->{'document_root'}) { }
0 0 elsif ($r) { }
1114 0 62 if $r
1115 62 0 if (length "$p->{'document_uri'}" and length "$p->{'document_root'}") { }
0 0 elsif (not length "$p->{'document_root'}") { }
0 0 elsif (not length "$p->{'document_uri'}") { }
1134 62 0 if 'Apache2::SSI::Notes'->supported
1150 0 4 if $self->apache_filter
1151 0 4 if $self->apache_request
1166 0 1 if ($self->mod_perl) { }
1174 1 0 if $self->_has_utf8($v)
1175 0 1 $self->_has_utf8($v) ? :
1178 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
1181 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 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'))
1191 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)
1194 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'))
1204 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
1207 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 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'))
1215 0 0 if ($self->mod_perl) { }
1224 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)
1227 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'))
1238 0 84 if ($r) { }
1240 0 0 if @_
1245 63 21 if (@_)
1266 2 0 if &Encode::is_utf8($v)
1267 0 2 if ($self->mod_perl) { }
1276 0 2 if ($Nice::Try::WANTARRAY) { }
2 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 2 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 2 if ($Nice::Try::DIED)
1279 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 2 $Nice::Try::WANTARRAY ? :
2 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'))
1289 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
1292 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 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'))
1302 1 0 if &Encode::is_utf8($v)
1305 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
1308 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 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'))
1318 0 2 if ($Nice::Try::WANTARRAY) { }
2 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 2 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 2 if ($Nice::Try::DIED)
1321 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 2 $Nice::Try::WANTARRAY ? :
2 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'))
1329 0 1 if ($self->mod_perl) { }
1339 0 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 1 if ($Nice::Try::DIED)
1342 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 1 $Nice::Try::WANTARRAY ? :
1 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'))
1349 389 0 unless (@_)
1352 0 389 if ($r) { }
1354 0 0 $r->main ? :
0 0 $r->is_initial_req ? :
1359 46 343 unless (ref $self->{'_env'})
1367 0 0 unless length $name
1369 0 0 if (scalar @_)
1372 0 0 if defined $_[-1] and &Scalar::Util::reftype($_[-1]) eq 'HASH'
1376 0 0 if ($r) { }
1378 0 0 $r->main ? :
0 0 $r->is_initial_req ? :
1379 0 0 if (@_)
1391 0 0 unless (ref $self->{'_env'})
1397 0 0 if (@_)
1401 0 0 if ($self->can($meth))
1420 3 4 if (exists $args->{'file'}) { }
4 0 elsif (exists $args->{'virtual'}) { }
0 0 elsif ($r) { }
1442 0 0 if (@_) { }
0 0 elsif (not $self->{'finfo'}) { }
1445 0 0 unless defined $newfile and length $newfile
1450 0 0 unless $newfile
1453 0 0 if (defined $newfile)
1455 0 0 $r ? :
1476 0 3 if ($f->code == 404)
1496 1 5 if ($u->code == 404)
1511 0 3 unless defined $uri and length $uri
1519 0 3 if $self->apache_request
1533 0 0 unless (scalar @_)
1535 0 0 if ($r) { }
0 0 elsif ($notes) { }
1552 0 0 if (@_)
1556 0 0 if ($notes)
1562 0 0 if ($r)
1566 0 0 if $new_value_set
1569 0 0 defined $val ? :
1570 0 0 if $notes
1573 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)
1575 0 0 defined $new ? :
0 0 defined $new ? :
1576 0 0 defined $new ? :
0 0 defined $new ? :
1577 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'))
1579 0 0 if $notes
1586 54 0 @_ ? :
1588 0 54 unless length $html
1597 54 158 unless @parts
1600 158 0 if ($ssi =~ /^<!--#(.*)-->$/s) { }
1603 157 1 if defined $res
1627 0 6 if exists $args->{'echomsg'}
1628 1 5 if exists $args->{'errmsg'}
1629 2 4 if exists $args->{'sizefmt'}
1630 3 3 if exists $args->{'timefmt'}
1645 0 38 if (defined $var and $r and defined($value = $r->subprocess_env($var))) { }
8 30 elsif (defined $var and $self->can(my $method = "parse_echo_\L$var\E")) { }
5 25 elsif (defined $var and exists $env->{$var}) { }
1664 0 38 if ($args->{'decoding'} and lc $args->{'decoding'} ne 'none')
1669 0 0 if ($args->{'decoding'} eq 'url') { }
0 0 elsif ($args->{'decoding'} eq 'urlencoded') { }
0 0 elsif ($args->{'decoding'} eq 'base64') { }
0 0 elsif ($args->{'decoding'} eq 'entity') { }
1686 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)
1690 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'))
1693 0 38 if ($args->{'encoding'} and lc $args->{'encoding'} ne 'none')
1698 0 0 if ($args->{'encoding'} eq 'url') { }
0 0 elsif ($args->{'encoding'} eq 'urlencoded') { }
0 0 elsif ($args->{'encoding'} eq 'base64') { }
0 0 elsif ($args->{'encoding'} eq 'entity') { }
1715 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)
1719 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'))
1733 0 2 if ($r) { }
1735 0 0 $r->main ? :
0 0 $r->is_initial_req ? :
1756 0 1 if ($r) { }
1758 0 0 $r->main ? :
0 0 $r->is_initial_req ? :
1780 0 4 unless @{$self->{'if_state'};} > 1
1781 0 4 if $self->{'suspend'}[1]
1789 0 38 unless @{$self->{'if_state'};} > 1
1790 1 37 if $self->{'suspend'}[1]
1798 0 39 unless @{$self->{'if_state'};} > 1
1808 0 53 unless length $text
1809 0 53 unless length $text
1828 3 50 if $perl =~ /[\=\!]\~/
1836 3 50 if scalar @matches
1840 0 53 if $@
1841 0 53 if $@
1842 1 52 if $self->error
1854 0 4 if ($r)
1858 0 0 if ($r->allow_options & 'Apache2::Const::OPT_INCNOEXEC')
1865 1 3 if (exists $args->{'cmd'})
1871 0 1 if ($r and 0) { }
1879 0 0 defined $data ? :
1890 0 3 unless (exists $args->{'cgi'})
1909 2 1 if ($cgi->code != 200)
1918 0 1 if (not $finfo->exists) { }
0 1 elsif (not $finfo->can_exec) { }
1927 0 0 unless ($^O =~ /^(dos|mswin32|NetWare|symbian|win32)$/i and -T "$finfo")
1939 0 1 if ($r) { }
1945 0 0 if not length $cgi->path_info and length $uri->path_info
1946 0 0 if not length $cgi->query_string and length $uri->query_string
1961 0 1 if length $cgi->path_info
1963 0 1 if length $cgi->query_string
1969 0 1 -T "$cgi" ? :
1970 0 1 if ($^O =~ /^(dos|mswin32|NetWare|symbian|win32)$/i and $mime eq 'text/x-perl') { }
1981 0 1 if ($? == -1)
1996 1 2 unless length $line
1998 2 0 if ($line =~ /^([a-zA-Z0-9_\-.]+)\s*:\s*(.*)/) { }
0 0 elsif ($line =~ /^\s+(.*)/ and $key) { }
2001 1 1 if $key
2015 1 0 if $key
2026 3 68 if (@_)
2028 0 0 !(@_ % 2) ? :
3 0 ref $_[0] eq 'HASH' ? :
2034 68 3 unless exists $opts->{'embedded'}
2039 38 33 unless ($self->{'_exp'})
2053 0 71 if ($Nice::Try::WANTARRAY) { }
71 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 71 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 71 if ($Nice::Try::DIED)
2056 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 0 $Nice::Try::WANTARRAY ? :
0 71 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'))
2072 0 1 unless ($p->code == 200)
2084 0 2 unless ($f->code == 200)
2093 1 1 if ($self->{'sizefmt'} eq 'bytes') { }
1 0 elsif ($self->{'sizefmt'} eq 'abbrev') { }
2101 0 1 unless defined $str
2106 1 0 if $size < 1024
2110 0 0 unless defined $str
2133 0 1 if ($r) { }
2139 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)
2143 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'))
2158 0 0 if ($r) { }
2167 0 0 if length $env->{$header_name}
2169 0 0 if length $$env{"HTTP_\U$name\E"}
2170 0 0 if length $$env{uc $name}
2218 0 0 if ($r) { }
2236 0 0 if ($r) { }
2277 1 38 if $self->{'suspend'}[0]
2284 0 3 unless (exists $args->{'file'} or exists $args->{'virtual'})
2289 0 4 unless ($f->code == 200)
2295 0 4 unless (-e "$filename")
2306 0 4 unless (defined $html)
2336 0 0 if (lc $a[0] eq 'sub') { }
0 0 elsif (lc $a[0] eq 'arg') { }
0 0 elsif (lc $a[0] eq 'args') { }
0 0 elsif (lc $a[0] eq 'pass_request') { }
0 0 elsif ($a[0] =~ s/^-//) { }
2350 0 0 if lc $a[1] eq 'no'
2367 0 0 if ($sub =~ /^[[:blank:]\h]*sub[[:blank:]\h]/) { }
2370 0 0 if ($@)
2375 0 0 unless (ref $subref)
2389 0 0 defined &{"${sub}::handler";} ? :
0 0 defined &{$sub;} ? :
2392 0 0 if ($r)
2394 0 0 if $r and lc $r->dir_config('SSIPerlPass_Request') eq 'no'
2395 0 0 if $pass_r
2418 0 8 if ($args->{'decoding'} and lc $args->{'decoding'} ne 'none')
2423 0 0 if ($args->{'decoding'} eq 'url') { }
0 0 elsif ($args->{'decoding'} eq 'urlencoded') { }
0 0 elsif ($args->{'decoding'} eq 'base64') { }
0 0 elsif ($args->{'decoding'} eq 'entity') { }
2440 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)
2444 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'))
2449 0 8 if ($args->{'encoding'} and lc $args->{'encoding'} ne 'none')
2454 0 0 if ($args->{'encoding'} eq 'url') { }
0 0 elsif ($args->{'encoding'} eq 'urlencoded') { }
0 0 elsif ($args->{'encoding'} eq 'base64') { }
0 0 elsif ($args->{'encoding'} eq 'entity') { }
2471 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)
2475 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'))
2478 0 8 if ($r) { }
2496 158 0 if ($html =~ s/^(\w+)[[:blank:]\h]*//)
2499 1 157 if $self->{'suspend'}[0] and not $tag =~ /^(if|elif|else|endif)/
2505 0 157 if lc $tag eq 'comment'
2509 43 114 if ($html =~ /^expr[[:blank:]\h]*\=/) { }
2511 43 0 if ($html =~ /^$EXPR_RE$/) { }
2546 8 4 if @_
2548 0 12 if ($r) { }
2555 0 0 if $new
2558 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)
2560 0 0 $c->can('client_ip') ? :
2561 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'))
2562 0 0 unless length $ip
2566 4 8 if $new
2568 5 7 unless length $ip
2570 7 5 if length $ip
2580 0 0 if not length $self->{'server_version'} and length $SERVER_VERSION
2581 0 0 if @_
2582 0 0 if $self->{'server_version'}
2584 0 0 if ($self->mod_perl)
2590 0 0 if ($desc =~ m[\bApache/([\d\.]+)])
2595 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)
2598 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'))
2603 0 0 if (not $vers and my $apxs = File::Which::which('apxs'))
2607 0 0 unless $vers =~ /^[\d\.]+$/
2610 0 0 unless ($vers)
2614 0 0 if (my $apache2 = File::Which::which($bin))
2617 0 0 if ((split(/\r?\n/, $v_str, 0))[0] =~ m[\bApache/([\d\.]+)])
2627 0 0 if ($vers)
2647 0 15 unless $self->_is_array($args)
2656 21 0 if $res
2670 0 3 if length $env->{'lang'}
2674 3 0 if (length $format) { }
2689 0 3 if ($Nice::Try::WANTARRAY) { }
3 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 3 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 3 if ($Nice::Try::DIED)
2694 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 3 $Nice::Try::WANTARRAY ? :
3 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'))
2702 32 47 if ($self->{'if_state'}[0]) { }
2726 0 0 length $b ? :
2739 1 2 $res ? :
2741 2 1 if ($Nice::Try::WANTARRAY) { }
1 0 elsif (defined $Nice::Try::WANTARRAY) { }
0 3 length $@ ? :
0 0 if ($Nice::Try::HAS_CATCH)
0 3 if ($Nice::Try::DIED)
2745 0 0 if ($Nice::Try::WANTARRAY) { }
0 0 elsif (defined $Nice::Try::WANTARRAY) { }
2 1 $Nice::Try::WANTARRAY ? :
3 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'))
2752 0 2 unless length $ip
2754 0 2 $ip =~ /^(?:$RE{'net'}{'IPv4'}|$RE{'net'}{'IPv6'})$/ ? :
2761 0 15 unless length $word
2762 2 13 $word =~ /^(?:$RE{'num'}{'int'}|$RE{'num'}{'real'})$/ ? :
2769 0 0 unless length "$file"
2770 0 0 if (-T "$finfo")
2777 0 0 $shebang =~ /^\#\!(.*?)\bperl\b/i ? :
2795 0 63 unless length $name
2796 63 0 unless ref $self->{'_env'}
2806 0 0 if ($r) { }
2822 0 0 $zone && $zone =~ /GMT/ ? :
2862 0 0 if $debug > 0
2865 0 0 if $debug > 0
2867 0 0 if $debug > 0
2868 0 0 if $buffer and length $bdata
2870 0 0 if $b->is_eos
2881 0 0 unless ($f->ctx)
2883 0 0 unless ($r->status == 'Apache2::Const::HTTP_OK' or $r->pnotes->{'force_fetch_content'})
2895 0 0 if $debug > 0
2896 0 0 if (ref $out eq 'ARRAY') { }
0 0 elsif (ref $out eq 'CODE') { }
2899 0 0 if $debug > 0
2908 0 0 if $debug > 0
2946 0 0 if $n->frec->name eq 'http_header'
2955 0 0 if (@_ == 3 and ref $headers eq 'CODE')
2964 0 0 if ($proxy) { }
2966 0 0 unless Apache2::Module::loaded('mod_proxy.c')
2973 0 0 if ($subr->status == 'Apache2::Const::HTTP_OK' and length $subr->handler || $subr->finfo->filetype == 'APR::Const::FILETYPE_REG')
2979 0 0 if ($proxy)
2986 0 0 if ($headers)
2994 0 0 unless exists $subr->headers_in->{'User-Agent'}
2996 0 0 unless exists $subr->headers_in->{'Host'}
2998 0 0 if (wantarray) { }
3015 0 0 if (wantarray) { }
3020 0 0 if $hout{'STATUS'} == 'Apache2::Const::HTTP_OK'