| line |
true |
false |
branch |
|
70
|
0 |
0 |
if (grep {$_ eq "_$a";} @props) { } |
|
71
|
0 |
0 |
$a eq 'services' ? : |
|
|
0 |
0 |
unless ($obj->set("_$a", $a eq 'services' ? %{$args{$a};} : $args{$a})) |
|
118
|
0 |
0 |
if (defined $client) |
|
148
|
0 |
0 |
unless defined $status |
|
180
|
0 |
0 |
if $obj->get('_options_ttl') |
|
206
|
0 |
0 |
if (exists $services{$service}) { } |
|
208
|
0 |
0 |
if ($method eq 'OPTIONS' or $services{$service} eq $method) { } |
|
209
|
0 |
0 |
if ($method eq 'REQMOD' and defined $reqmod) { } |
|
|
0 |
0 |
elsif ($method eq 'RESPMOD' and defined $respmod) { } |
|
|
0 |
0 |
elsif ($method eq 'OPTIONS') { } |
|
233
|
0 |
0 |
if defined $logger |
|
264
|
0 |
0 |
if ($req->parse($client)) { } |
|
268
|
0 |
0 |
if ($obj->_dispatch($client, $req)) { } |
|
269
|
0 |
0 |
if defined $c and $c eq 'close' |
|
279
|
0 |
0 |
if defined $logger |
|
312
|
0 |
0 |
$addr eq '0.0.0.0' ? : |
|
320
|
0 |
0 |
if (defined $socket) { } |
|
323
|
0 |
0 |
if (defined($cpid = pfork())) { } |
|
324
|
0 |
0 |
unless ($cpid) |