Branch Coverage

blib/lib/Net/Lookup/DotTel.pm
Criterion Covered Total %
branch 29 50 58.0


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