| 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') |