Condition Coverage

blib/lib/Net/DNS/Dig.pm
Criterion Covered Total %
condition 74 111 66.6


and 3 conditions

line !l l&&!r l&&r condition
463 1 0 1 $ancount and defined $newoff
528 151 5373 10 $soap and $type == T_SOA()
570 8 11 2 $soap and $$soap > 0
590 8 0 0 $native && $_Sock6ok && $_gethostHelp
913 0 15 4 exists $$self{'QUESTION'}[0]{'TYPE'} && $$self{'QUESTION'}[0]{'TYPE'} == &T_AXFR
980 0 1 18 exists $$self{'_SS'}{$sname} and not $Rcode
1127 920 760 160 $mode and $$_{'TYPE'} eq $type
760 760 160 not $mode and $$_{'TYPE'} == $type
1391 6 0 0 &_hostHelp and $af != &AF_INET6
1430 6 0 0 length $name == 4 and $af == &AF_INET
0 0 6 length $name == 16 and $af == &AF_INET6
1462 4 2 2 $af == &AF_INET and not $name =~ /[^0-9\.]/
6 0 2 $af == &AF_INET and not $name =~ /[^0-9\.]/ and $netaddr = inet_aton($name)
2 2 2 $af == &AF_INET6 and not $name =~ /[^0-9a-fA-F\:]/
4 0 2 $af == &AF_INET6 and not $name =~ /[^0-9a-fA-F\:]/ and $netaddr = ipv6_aton($name)
1475 8 0 15 not $name =~ /[^0-9\.]/ and $netaddr = inet_aton($name)
4 0 4 not $name =~ /[^0-9a-fA-F\:]/ and $netaddr = ipv6_aton($name)

or 2 conditions

line l !l condition
659 31 0 ref $proto || $proto || 'Net::DNS::Dig'
662 30 0 {@_} || {}
1111 320 64 eval { do { no strict; &{'T_' . uc($type);} } } || 0

or 3 conditions

line l !l&&r !l&&!r condition
680 28 1 1 $$self{'Proto'} eq 'UDP' or $$self{'Proto'} eq 'TCP'
799 0 0 3 $not_allowed{$Type} or not exists $Net::DNS::Codes::{$ttype}
829 2 0 1 $isAXFR || $$self{'Proto'} eq 'TCP'
922 19 0 0 OpcodeTxt()->{$$head{'OPCODE'}} || $$head{'OPCODE'}
926 19 0 0 RcodeTxt()->{$Rcode} || $Rcode
948 7 0 60 $isAXFR or $Rcode
987 4 0 15 $isAXFR or $Rcode
1054 8 4 10 $sect eq 'ANSWER' or $sect eq 'AUTHORITY'
12 4 6 $sect eq 'ANSWER' or $sect eq 'AUTHORITY' or $sect eq 'ADDITIONAL'
8 4 2 $sect eq 'ANSWER' or $sect eq 'AUTHORITY' or $sect eq 'ADDITIONAL' or $sect eq 'QUESTION'
1095 192 96 100 $sect eq 'ANSWER' or $sect eq 'AUTHORITY'
288 96 4 $sect eq 'ANSWER' or $sect eq 'AUTHORITY' or $sect eq 'ADDITIONAL'
1127 160 0 1680 $mode and $$_{'TYPE'} eq $type or not $mode and $$_{'TYPE'} == $type
1427 0 6 0 $af == &AF_INET or $af == &AF_INET6
1430 0 0 6 length $name == 4 and $af == &AF_INET or length $name == 16 and $af == &AF_INET6
0 0 0 $af == &AF_INET or $af == &AF_INET6
1565 2 0 0 $typ == &T_A or $typ == &T_AAAA
1566 5 2 0 $typ == &T_A or $typ == &T_AAAA