| line |
true |
false |
branch |
|
25
|
0 |
2 |
if ref $ref ne 'HASH' |
|
28
|
2 |
0 |
defined $ref && defined $$ref{'BaseDomain'} ? : |
|
|
2 |
0 |
defined $ref && defined $$ref{'Hash'} ? : |
|
47
|
2 |
6 |
if $q eq $d |
|
48
|
0 |
6 |
if $pos == 0 and length $q <= length $d |
|
49
|
4 |
2 |
if substr($q, $pos - 1, 1) eq '.' |
|
58
|
6 |
2 |
if (_match($q->qname, $$self{'zone'})) |
|
69
|
3 |
2 |
if (exists $$self{'hash'}{$ip} or exists $$self{'hash'}{$name} or exists $$self{'hash'}{$name . '.'}) |
|
89
|
0 |
4 |
unless (ref $set) |
|
99
|
4 |
0 |
if ($q->qtype eq 'ANY' || $rr->type eq $q->qtype and $rr->class eq $q->qclass) |
|
107
|
4 |
0 |
if ($answers) |
|
129
|
0 |
0 |
if $sub eq 'DESTROY' |
|
130
|
0 |
0 |
unless $sub eq uc $sub |