| line |
true |
false |
branch |
|
159
|
0 |
0 |
unless my $path = delete $args{'socket_path'} |
|
180
|
0 |
0 |
if (defined(my $cmds = delete $args{'commands'})) |
|
181
|
0 |
0 |
unless ref $cmds eq "HASH" |
|
227
|
1 |
4 |
unless ref $code eq "CODE" |
|
268
|
2 |
56 |
if $sym =~ /\Acmd_(.+)\z/ |
|
273
|
0 |
2 |
unless $self->can($method) |
|
303
|
0 |
0 |
unless -e $path |
|
305
|
0 |
0 |
unless -S $path |
|
310
|
0 |
0 |
if ($probe) |
|
316
|
0 |
0 |
unless $self->{'unlink_existing'} |
|
318
|
0 |
0 |
unless unlink $path |
|
338
|
0 |
0 |
if (defined $self->{'socket_mode'}) |
|
340
|
0 |
0 |
unless chmod $self->{'socket_mode'}, $self->{'socket_path'} |
|
363
|
0 |
0 |
if $@ |
|
370
|
0 |
0 |
if defined $path and -S $path |
|
379
|
0 |
0 |
if $self->{'on_error'} |
|
408
|
0 |
0 |
unless $self->{'clients'}{$id} |
|
409
|
0 |
0 |
unless defined $line and $line =~ /\S/ |
|
412
|
0 |
0 |
unless (eval {
do {
$request = $self->{'json'}->decode($line);
1
}
}) |
|
423
|
0 |
0 |
unless (ref $request eq "HASH") |
|
445
|
0 |
0 |
unless (defined $cmd_name) |
|
451
|
0 |
0 |
unless ($handler) |
|
457
|
0 |
0 |
if (my $err = $@) |
|
458
|
0 |
0 |
unless ($ctx->responded) |
|
459
|
0 |
0 |
if (ref $err eq 'HASH') { } |
|
468
|
0 |
0 |
if $ctx->responded |
|
469
|
0 |
0 |
unless defined $ret[0] |
|
478
|
0 |
0 |
if ($self->{'on_error'} and not $op eq 'read' && $errnum == 0) |
|
487
|
0 |
0 |
unless my $client = $self->{'clients'}{$id} |
|
488
|
0 |
0 |
if $client->{'close_after_flush'} |
|
496
|
0 |
0 |
unless my $client = $self->{'clients'}{$id} |
|
497
|
0 |
0 |
unless my $wheel = $client->{'wheel'} |
|
500
|
0 |
0 |
unless (defined $json) |
|
520
|
0 |
0 |
unless my $client = $self->{'clients'}{$id} |
|
522
|
0 |
0 |
if ($wheel and $wheel->get_driver_out_octets) { } |
|
568
|
1 |
4 |
if $self->{'responded'} |
|
574
|
3 |
1 |
if defined $self->{'req_id'} and not exists $out{'id'} |