Branch Coverage

lib/Net/DNS/Dynamic/Proxyserver.pm
Criterion Covered Total %
branch 16 62 25.8


line true false branch
256 0 2 $self->debug > 1 ? :
265 0 2 $self->debug > 2 ? :
275 0 2 if $self->uid
276 0 2 if $self->gid
284 0 1 $self->host eq '*' ? :
298 0 0 if ($self->ask_etc_hosts and $qtype eq 'A' || $qtype eq 'PTR')
300 0 0 if (my $ip = $self->query_etc_hosts($qname, $qtype))
304 0 0 $self->ask_etc_hosts->{'ttl'} ? :
316 0 1 if ($self->ask_sql)
318 0 0 if (my $ip = $self->query_sql($qname, $qtype))
322 0 0 $self->ask_sql->{'ttl'} ? :
336 1 0 if ($answer) { }
360 1 6 if $self->debug or $force_flag
375 0 1 if $self->dbh
383 0 0 if $qtype eq 'A'
384 0 0 if $qtype eq 'PTR'
392 0 0 if (any(@{$self->addrs->{$ip};}) eq $hostname)
406 0 0 if $self->addrs->{$ip}
418 0 0 unless $reverse_ip
428 2 0 unless $self->ask_etc_hosts
435 0 0 unless open HOSTS, '/etc/hosts'
439 0 0 if /^\s*#/
440 0 0 if /^$/
445 0 0 unless $ip =~ /^[\d\.]+$/
451 0 0 if exists $names{$_}
465 0 2 if $self->forwarders
471 0 2 unless open RESOLV, '/etc/resolv.conf'
475 4 8 if (/^nameserver\s+([\d\.]+)/)
483 0 2 unless @dns_servers
497 0 0 unless ($self->dbh and $self->dbh->ping)
506 0 0 if $qtype eq 'PTR'