Branch Coverage

blib/lib/Any/Daemon/HTTP.pm
Criterion Covered Total %
branch 0 104 0.0


line true false branch
44 0 0 defined $_[0] ? :
0 0 ref $_[0] eq 'ARRAY' ? :
57 0 0 if $socket
61 0 0 unless @sockets
81 0 0 if $args->{'docroot'}
86 0 0 exists $args->{'show_in_ps'} ? :
97 0 0 if $args->{'documents'} or $handler
104 0 0 unless defined $listen
106 0 0 if &blessed($listen) and $listen->isa('IO::Socket')
109 0 0 $listen =~ s/\:([0-9]+)$// ? :
115 0 0 if ($proto eq 'HTTPS') { }
0 0 elsif ($proto eq 'HTTP') { }
0 0 elsif ($proto eq 'FCGI') { }
117 0 0 unless eval 'require IO::Socket::SSL; require HTTP::Daemon::SSL'
124 0 0 unless eval 'require Any::Daemon::FCGI'
146 0 0 if $socket or $! != 98
148 0 0 if $retry == 1
156 0 0 unless $socket
159 0 0 if $elapse
175 0 0 !defined($_[0]) ? :
0 0 @_ > 1 ? :
178 0 0 if (&blessed($config) and $config->isa('Any::Daemon::HTTP::VirtualHost')) { }
0 0 elsif (ref $config eq 'HASH') { }
195 0 0 !defined($_[0]) ? :
0 0 @_ > 1 ? :
197 0 0 if (UNIVERSAL::isa($config, 'Any::Daemon::HTTP::Proxy')) { }
0 0 elsif (UNIVERSAL::isa($config, 'HASH')) { }
203 0 0 unless $proxy->forwardMap
215 0 0 &blessed($id) && $id->isa('Any::Daemon::HTTP::VirtualHost') ? :
217 0 0 unless defined $vhost
235 0 0 unless my $mapped = $proxy->forwardRewrite($session, $req, $uri)
254 0 0 if ($self->protocol eq 'FCGI') { }
260 0 0 $client->isa('IO::Socket::SSL') ? :
282 0 0 $0 =~ /^(\S+)/ ? :
299 0 0 if $vhostn =~ /(.*)\:[0-9]+$/
303 0 0 if ($vhost) { }
0 0 elsif (my($proxy, $where) = $self->findProxy($session, $req, $vhostn)) { }
0 0 elsif (my $default = $self->virtualHost('default')) { }
305 0 0 ref($conn) =~ /SSL/ ? :
320 0 0 unless ($resp)
329 0 0 if (&is_error(scalar $resp->code))
331 0 0 unless $resp->content
338 0 0 $close ? :
341 0 0 if $close
369 0 0 unless (keys %$vhosts)
375 0 0 if (my $handler = delete $args{'handle_request'})
380 0 0 $0 =~ /^(\S+)/ ? :
384 0 0 if $max_conn > 10
402 0 0 unless my $client = $socket->accept
403 0 0 if defined $linger
414 0 0 if $conn_count++ >= $max_conn or $req_count >= $max_req
441 0 0 if $self->{'ADH_show_ps'}