| line |
l |
!l |
condition |
|
64
|
0 |
0 |
$args->{'session_class'} || 'Any::Daemon::HTTP::Session' |
|
66
|
0 |
0 |
$args->{'vhost_class'} || 'Any::Daemon::HTTP::VirtualHost' |
|
68
|
0 |
0 |
$args->{'proxy_class'} || 'Any::Daemon::HTTP::Proxy' |
|
80
|
0 |
0 |
$args->{'standard_headers'} || [] |
|
81
|
0 |
0 |
$args->{'on_error'} || sub {
$_[1];
}
|
|
234
|
0 |
0 |
$args->{'max_req_per_conn'} || 100 |
|
236
|
0 |
0 |
$args->{'max_time_per_conn'} || 120 |
|
237
|
0 |
0 |
$args->{'req_time_bonus'} // 2 |
|
250
|
0 |
0 |
$host // '(unnamed)' |
|
268
|
0 |
0 |
$req->header('Host') || 'default' |
|
324
|
0 |
0 |
$args{'new_child'} || 'newChild' |
|
325
|
0 |
0 |
$args{'new_connection'} ||= 'newConnection' |
|
342
|
0 |
0 |
$args{'max_conn_per_child'} || 10000 |
|
346
|
0 |
0 |
$args{'max_req_per_child'} || 100000 |
|
379
|
0 |
0 |
$args{'child_task'} ||= sub {
$0 = "$title not used yet";
my $select = 'IO::Select'->new($self->sockets);
$self->$new_child($select);
CONNECTION: while (my(@ready) = $select->can_read) {
do {
foreach my $socket (@ready) {
next unless my $client = $socket->accept;
$client->sockopt(13, pack('II', 1, $linger)) if defined $linger;
$0 = "$title handling " . $client->peerhost . ':' . $client->peerport . ' at ' . $client->sockhost . ':' . $client->sockport;
$req_count += $self->_connection($client, \%args);
$client->close;
last CONNECTION if $conn_count++ >= $max_conn or $req_count >= $max_req;
} ;
$0 = "$title idle after $conn_count"
};
} ;
0;
}
|