Branch Coverage

blib/lib/POE/Component/Server/DNS.pm
Criterion Covered Total %
branch 58 118 49.1


line true false branch
26 4 1 unless ($$self{'no_clients'})
30 1 4 $options && ref $options eq 'HASH' ? :
47 0 5 if ($$self{'alias'}) { }
55 4 1 unless ($$self{'no_clients'})
56 4 0 unless $$self{'resolver_opts'} and ref $$self{'resolver_opts'} eq 'HASH'
62 5 0 defined $$self{'port'} ? :
70 5 0 defined $$self{'port'} ? :
115 0 0 if ($$heap{'socket_wheel'})
140 0 0 if $operation eq 'read' and $errnum == 0
171 4 1 unless ($$self{'no_clients'})
185 0 1 if (exists $$self{'_sessions'}{$sender} and not $event)
191 0 1 if (exists $$self{'_sessions'}{$sender})
207 2 0 if (ref $_[10] eq 'HASH') { }
218 0 2 unless ($$args{'label'})
223 0 2 if (grep {$$_{'label'} eq $$args{'label'};} @{$$self{'_handlers'};})
228 0 2 unless ($$args{'event'})
233 0 2 unless ($$args{'match'})
241 0 2 if ($@) { }
249 2 0 unless $$args{'session'}
250 2 0 if (my $ref = $kernel->alias_resolve($$args{'session'})) { }
266 0 0 unless $label
270 0 0 if ($$_{'label'} eq $label)
285 0 210 if (defined $$heap{'_tcp_sockport'})
290 0 210 unless $q
293 4 177 unless $q->qname =~ /$$handler{'match'}/
306 1 32 if ($$self{'no_clients'})
316 1 0 if not defined $heap && defined $$heap{'socket_wheel'} and $$self{'dnsrw'}
317 0 1 if $$heap{'socket_wheel'}
322 0 32 if ($q->qname =~ /^localhost\.*$/i)
325 0 0 if not defined $heap && defined $$heap{'socket_wheel'} and $$self{'dnsrw'}
326 0 0 if $$heap{'socket_wheel'}
330 6 26 if ($$self{'forward_only'}) { }
340 0 6 if $response
362 177 0 if $ans
363 177 0 if $auth
364 177 0 if $add
365 0 177 if (not defined $headermask) { }
366 0 0 $$self{'no_clients'} ? :
370 177 0 if $$headermask{'aa'}
371 0 177 if $$headermask{'ra'}
372 0 177 if $$headermask{'ad'}
378 177 0 if not defined $heap && defined $$heap{'socket_wheel'} and $$self{'dnsrw'}
379 0 177 if $$heap{'socket_wheel'}
386 0 0 unless ($op eq 'read' and $errnum == 0 || $errnum == 104)
396 12 14 if $$data{'error'}
402 14 0 if ($response)
406 14 0 if not defined $socket and $$self{'dnsrw'}
407 0 14 if $socket
413 0 0 if not defined $socket and $$self{'dnsrw'}
414 0 0 if $socket
427 6 0 if not defined $heap && defined $$heap{'socket_wheel'} and $$self{'dnsrw'}
428 0 6 if $$heap{'socket_wheel'}
462 202 210 unless $from
465 0 202 unless @ret
484 0 198 unless my $n = send($fh, $$self[0][1], 0, $$self[0][0])
486 0 198 unless $n == length $$self[0][1]
513 0 210 unless ref $d eq 'ARRAY'
518 0 210 if (not $p) { }
537 0 198 if (not defined $port) { }