| line |
true |
false |
branch |
|
23
|
4 |
1 |
unless ($self->{'no_clients'}) |
|
27
|
1 |
4 |
$options && ref $options eq 'HASH' ? : |
|
44
|
0 |
5 |
if ($self->{'alias'}) { } |
|
52
|
4 |
1 |
unless ($self->{'no_clients'}) |
|
53
|
4 |
0 |
unless $self->{'resolver_opts'} and ref $self->{'resolver_opts'} eq 'HASH' |
|
62
|
5 |
0 |
defined $self->{'port'} ? : |
|
71
|
5 |
0 |
defined $self->{'port'} ? : |
|
112
|
0 |
0 |
if ($heap->{'socket_wheel'}) |
|
137
|
0 |
0 |
if $operation eq 'read' and $errnum == 0 |
|
168
|
4 |
1 |
unless ($self->{'no_clients'}) |
|
182
|
0 |
1 |
if (exists $self->{'_sessions'}{$sender} and not $event) |
|
188
|
0 |
1 |
if (exists $self->{'_sessions'}{$sender}) |
|
204
|
2 |
0 |
if (ref $_[10] eq 'HASH') { } |
|
215
|
0 |
2 |
unless ($args->{'label'}) |
|
220
|
0 |
2 |
if (grep {$_->{'label'} eq $args->{'label'};} @{$$self{'_handlers'};}) |
|
225
|
0 |
2 |
unless ($args->{'event'}) |
|
230
|
0 |
2 |
unless ($args->{'match'}) |
|
238
|
0 |
2 |
if ($@) { } |
|
246
|
2 |
0 |
unless $args->{'session'} |
|
247
|
2 |
0 |
if (my $ref = $kernel->alias_resolve($args->{'session'})) { } |
|
263
|
0 |
0 |
unless $label |
|
267
|
0 |
0 |
if ($_->{'label'} eq $label) |
|
282
|
0 |
562 |
if (defined $heap->{'_tcp_sockport'}) |
|
287
|
0 |
562 |
unless $q |
|
290
|
4 |
376 |
unless $q->qname =~ /$handler->{'match'}/ |
|
303
|
1 |
185 |
if ($self->{'no_clients'}) |
|
314
|
1 |
0 |
if not defined $heap && defined $heap->{'socket_wheel'} and $self->{'dnsrw'} |
|
315
|
0 |
1 |
if $heap->{'socket_wheel'} |
|
320
|
0 |
185 |
if ($q->qname =~ /^localhost\.*$/i) |
|
323
|
0 |
0 |
if not defined $heap && defined $heap->{'socket_wheel'} and $self->{'dnsrw'} |
|
324
|
0 |
0 |
if $heap->{'socket_wheel'} |
|
328
|
124 |
61 |
if ($self->{'forward_only'}) { } |
|
338
|
0 |
124 |
if $response |
|
360
|
376 |
0 |
if $ans |
|
361
|
376 |
0 |
if $auth |
|
362
|
376 |
0 |
if $add |
|
363
|
0 |
376 |
if (not defined $headermask) { } |
|
364
|
0 |
0 |
$self->{'no_clients'} ? : |
|
368
|
376 |
0 |
if $headermask->{'aa'} |
|
369
|
0 |
376 |
if $headermask->{'ra'} |
|
370
|
0 |
376 |
if $headermask->{'ad'} |
|
376
|
376 |
0 |
if not defined $heap && defined $heap->{'socket_wheel'} and $self->{'dnsrw'} |
|
377
|
0 |
376 |
if $heap->{'socket_wheel'} |
|
384
|
0 |
0 |
unless ($op eq 'read' and $errnum == 0 || $errnum == 104) |
|
394
|
12 |
49 |
if $data->{'error'} |
|
400
|
49 |
0 |
if ($response) |
|
404
|
49 |
0 |
if not defined $socket and $self->{'dnsrw'} |
|
405
|
0 |
49 |
if $socket |
|
411
|
0 |
0 |
if not defined $socket and $self->{'dnsrw'} |
|
412
|
0 |
0 |
if $socket |
|
425
|
123 |
1 |
if not defined $heap && defined $heap->{'socket_wheel'} and $self->{'dnsrw'} |
|
426
|
0 |
124 |
if $heap->{'socket_wheel'} |
|
457
|
554 |
562 |
unless $from |
|
460
|
0 |
554 |
unless @ret |
|
479
|
0 |
549 |
unless my $n = send($fh, $self->[0][1], 0, $self->[0][0]) |
|
481
|
0 |
549 |
unless $n == length $self->[0][1] |
|
505
|
0 |
562 |
unless ref $d eq 'ARRAY' |
|
510
|
0 |
562 |
if (not $p) { } |
|
529
|
0 |
549 |
if (not defined $port) { } |