Branch Coverage

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


line true false branch
85 0 0 if (defined $args) { }
86 0 0 unless ref $args eq 'HASH'
94 0 0 unless $$args{'resolver_args'}
106 0 0 unless my $root_server = $self->get_root_server
114 0 0 unless $self->args->{'resolver_args'}
117 0 0 if (defined $reply) { }
118 0 0 if ($reply->header->rcode eq 'NOERROR') { }
141 0 0 if ($lookup =~ /^\d+\.\d+\.\d+\.\d+$/) { }
151 0 0 if (scalar @full_zone == 0)
158 0 0 if $rr->type eq 'A'
168 0 0 if (scalar @zone == 0)
197 0 0 if (defined $self->_get_arg('domain'))
203 0 0 if (defined $self->_get_arg('multiple'))
208 0 0 if (defined $self->_get_arg('all_fields'))
212 0 0 if (defined $self->_get_arg('type')) { }
213 0 0 unless (defined $config_type{$self->_get_arg('type')})
221 0 0 if (defined $self->_get_arg('ttl')) { }
227 0 0 if (my $cache_param = $self->_get_arg('cache')) { }
229 0 0 unless ($@)
241 0 0 if ($query) { }
255 0 0 unless defined $$self{'args'}
266 0 0 if ($query) { }
268 0 0 unless $rr->type eq 'PTR'
275 0 0 if (defined $self->_get_arg('multiple')) { }
286 0 0 if (defined $self->_get_arg('multiple')) { }
301 0 0 if ($cache and my $old = $$cache{$lookup})
303 0 0 if ($now > $expire) { }
313 0 0 if ($query) { }
316 0 0 unless $rr->type eq $$self{'lookup_type'}
317 0 0 if (defined $self->_get_arg('all_fields')) { }
320 0 0 if ($NEW_NETDNS and $field eq 'address') { }
328 0 0 if ($NEW_NETDNS and $config_rec_defaults{$$self{'lookup_type'}} eq 'address') { }
350 0 0 if ($cache)