| line |
true |
false |
branch |
|
72
|
3 |
0 |
unless $param{'resolver_config'} |
|
96
|
0 |
2 |
unless $domain |
|
98
|
1 |
1 |
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
|
42 |
0 |
if ($t->type eq 'TXT') |
|
175
|
12 |
30 |
if ($parts[0] eq '.tkw') |
|
182
|
3 |
18 |
if $parts[$i] eq $kw |
|
302
|
0 |
0 |
unless @{$b;} <=> @{$a;} or $Net::Lookup::DotTel::a->[2] eq 'pa' and $Net::Lookup::DotTel::b->[2] eq 'bpa' and -1 or $Net::Lookup::DotTel::b->[2] eq 'pa' and $Net::Lookup::DotTel::a->[2] eq 'bpa' and 1 or $Net::Lookup::DotTel::a->[3] cmp $Net::Lookup::DotTel::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
|
8 |
0 |
if ($n->type eq 'NAPTR') |
|
443
|
8 |
0 |
if ($n->flags eq 'u') |
|
448
|
8 |
0 |
if (not $service or grep /^$service(:.+)?$/, @services) |
|
486
|
0 |
0 |
unless $Net::Lookup::DotTel::a->{'preference'} <=> $Net::Lookup::DotTel::b->{'preference'} or $Net::Lookup::DotTel::a->{'order'} <=> $Net::Lookup::DotTel::b->{'order'} or join('+', @{$Net::Lookup::DotTel::a->{'services'};}) cmp join('+', @{$Net::Lookup::DotTel::b->{'services'};}) or $Net::Lookup::DotTel::a->{'regexp'} cmp $Net::Lookup::DotTel::b->{'regexp'} or $Net::Lookup::DotTel::a->{'flags'} cmp $Net::Lookup::DotTel::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
|
14 |
0 |
if ($t->type eq 'TXT') |
|
531
|
8 |
6 |
unless ($parts[0] eq '.tkw' or $parts[0] eq '.tsm') |