| line |
true |
false |
branch |
|
29
|
1 |
0 |
defined $ref && defined $$ref{'BaseDomain'} ? : |
|
|
1 |
0 |
defined $ref && defined $$ref{'Prefix'} ? : |
|
|
1 |
0 |
defined $ref && defined $$ref{'ttl'} ? : |
|
42
|
1 |
0 |
if (exists $$ref{'Pool'}) { } |
|
46
|
0 |
2 |
unless $a |
|
64
|
1 |
2 |
if ($q->qname =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)\.in-addr\.arpa\.?$/i) |
|
80
|
2 |
2 |
if (index($name, $$self{'prefix'}) == 0) { } |
|
87
|
2 |
0 |
if (my $i = index($name, '.' . $$self{'zone'})) { } |
|
94
|
1 |
0 |
if ($name =~ /^([0-9]+)-([0-9]+)-([0-9]+)-([0-9]+)$/i and $1 >= 0 and $1 <= 255 and $2 >= 0 and $2 <= 255 and $3 >= 0 and $3 <= 255 and $4 >= 0 and $4 <= 255) |
|
112
|
1 |
2 |
if (my $a = $self->_parse_ptr($q)) |
|
114
|
1 |
0 |
if ($s->contains($a)) |
|
138
|
1 |
3 |
if (my $a = $self->_parse_a($q)) |
|
140
|
1 |
0 |
if ($s->contains($a)) |