Branch Coverage

blib/lib/Tie/DNS.pm
Criterion Covered Total %
branch 0 66 0.0


line true false branch
88 0 0 if (defined $args) { }
89 0 0 unless ref $args eq 'HASH'
97 0 0 unless $$args{'resolver_args'}
109 0 0 unless my $root_server = $self->get_root_server
117 0 0 unless $self->args->{'resolver_args'}
120 0 0 if (defined $reply) { }
121 0 0 if ($reply->header->rcode eq 'NOERROR') { }
144 0 0 if ($lookup =~ /^\d+\.\d+\.\d+\.\d+$/) { }
154 0 0 if (scalar @full_zone == 0)
161 0 0 if $rr->type eq 'A'
171 0 0 if (scalar @zone == 0)
200 0 0 if (defined $self->_get_arg('domain'))
206 0 0 if (defined $self->_get_arg('multiple'))
211 0 0 if (defined $self->_get_arg('all_fields'))
215 0 0 if (defined $self->_get_arg('type')) { }
216 0 0 unless (defined $config_type{$self->_get_arg('type')})
224 0 0 if (defined $self->_get_arg('ttl')) { }
230 0 0 if (my $cache_param = $self->_get_arg('cache')) { }
232 0 0 unless ($@)
244 0 0 if ($query) { }
258 0 0 unless defined $$self{'args'}
269 0 0 if ($query) { }
271 0 0 unless $rr->type eq 'PTR'
278 0 0 if (defined $self->_get_arg('multiple')) { }
289 0 0 if (defined $self->_get_arg('multiple')) { }
304 0 0 if ($cache and my $old = $$cache{$lookup})
306 0 0 if ($now > $expire) { }
316 0 0 if ($query) { }
319 0 0 unless $rr->type eq $$self{'lookup_type'}
320 0 0 if (defined $self->_get_arg('all_fields')) { }
323 0 0 if ($NEW_NETDNS and $field eq 'address') { }
331 0 0 if ($NEW_NETDNS and $config_rec_defaults{$$self{'lookup_type'}} eq 'address') { }
353 0 0 if ($cache)