blib/lib/Net/DNS/Resolver/Base.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 80 | 80 | 100.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
146 | 45 | 26 | 4 | $ref and $ref ne "ARRAY" |
376 | 1 | 10 | 2 | $self->{'defnames'} && !($name =~ /[.:]/) |
454 | 5 | 1 | 2 | $self->{'tsig_rr'} and not $reply->verify($query) |
527 | 100 | 1 | 2 | $self->{'tsig_rr'} and not $reply->verify($query) |
681 | 8 | 1 | 1 | $self->{'tsig_rr'} and not $reply->verify($query) |
695 | 1 | 122 | 6 | $query and $header->id != $query->header->id |
line | l | !l | condition |
---|---|---|---|
128 | 84 | 9 | $initial ||= [%$base] |
168 | 7 | 3 | $res_option{lc $name} || (return) |
183 | 1 | 7 | $ENV{'RES_OPTIONS'} || '' |
341 | 26 | 3 | shift() || (return @null) |
366 | 175 | 313 | shift() || (return $self->{'errorstring'}) |
375 | 11 | 2 | shift @argument || '.' |
380 | 10 | 3 | $self->send($fqdn, @argument) || (return) |
390 | 5 | 1 | shift @argument || '.' |
399 | 2 | 5 | $self->send($fqname, @argument) || (next) |
417 | 100 | 20 | $self->_send_udp($packet, $packet_data) || (return) |
440 | 10 | 2 | $socket || (next) |
476 | 105 | 16 | $self->{'retrans'} || 1 |
477 | 105 | 16 | $self->{'retry'} || 1 |
493 | 105 | 98 | $self->_create_udp_socket($ns) || (next) |
596 | 9 | 2 | $self->_create_udp_socket($ip) || (next) |
620 | 11868 | 2 | do { *$handle }->{'net_dns_bg'} ||= [time + $self->{'udp_timeout'}] |
636 | 1 | 1 | $self->_bgsend_tcp($query, $query->data) || (return) |
773 | 9 | 2 | $socket || (next) |
801 | 42 | 1 | shift() || (return) |
834 | 61 | 1 | $fragment || (last) |
1061 | 174 | 81 | +(shift())->{'udppacketsize'} || 0 |
1128 | 44 | 35 | shift() || 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
284 | 757 | 699 | 14 | _ipv4($ns) or _ipv6($ns) |
309 | 132 | 7 | 179 | scalar @ns or not defined wantarray |
321 | 3 | 124 | 191 | $self->{'prefer_v4'} or not scalar @ns6 |
322 | 6 | 20 | 292 | $self->{'prefer_v6'} or not scalar @ns4 |
415 | 6 | 1 | 120 | $self->{'usevc'} or length $packet_data > $self->_packetsz |
557 | 6 | 1 | 9 | $self->{'usevc'} or length $packet_data > $self->_packetsz |