line |
true |
false |
branch |
72
|
3 |
0 |
unless $param{'resolver_config'} |
96
|
0 |
4 |
unless $domain |
98
|
2 |
2 |
if (my $response = $$self{'resolver'}->query($domain, 'ANY')) |
161
|
0 |
3 |
unless ($$self{'current_domain'}) |
168
|
3 |
0 |
if (my $response = $$self{'resolver'}->query($$self{'current_domain'}, 'TXT')) |
172
|
15 |
0 |
if ($t->type eq 'TXT') |
175
|
6 |
9 |
if ($parts[0] eq '.tkw') |
182
|
3 |
13 |
if $parts[$i] eq $kw |
302
|
0 |
0 |
unless @{$b;} <=> @{$a;} or $$a[2] eq 'pa' and $$b[2] eq 'bpa' and -1 or $$b[2] eq 'pa' and $$a[2] eq 'bpa' and 1 or $$a[3] cmp $$b[3] |
325
|
4 |
31 |
if ($n eq $$_{'name'}) |
331
|
1 |
4 |
unless ($address{'type'}) |
332
|
0 |
1 |
if ($n eq 'pa') { } |
|
1 |
0 |
elsif ($n eq 'bpa') { } |
348
|
1 |
0 |
if (wantarray) |
427
|
0 |
1 |
unless ($$self{'current_domain'}) |
434
|
1 |
0 |
if (my $response = $$self{'resolver'}->query($$self{'current_domain'}, 'NAPTR')) |
438
|
4 |
0 |
if ($n->type eq 'NAPTR') |
443
|
4 |
0 |
if ($n->flags eq 'u') |
448
|
4 |
0 |
if (not $service or grep /^$service(:.+)?$/, @services) |
482
|
0 |
0 |
unless $$a{'preference'} <=> $$b{'preference'} or $$a{'order'} <=> $$b{'order'} or join('+', @{$$a{'services'};}) cmp join('+', @{$$b{'services'};}) or $$a{'regexp'} cmp $$b{'regexp'} or $$a{'flags'} cmp $$b{'flags'} |
488
|
1 |
0 |
if (wantarray) |
517
|
0 |
1 |
unless ($$self{'current_domain'}) |
524
|
1 |
0 |
if (my $response = $$self{'resolver'}->query($$self{'current_domain'}, 'TXT')) |
528
|
5 |
0 |
if ($t->type eq 'TXT') |
531
|
1 |
4 |
unless ($parts[0] eq '.tkw' or $parts[0] eq '.tsm') |