| blib/lib/Net/SPAMerLookup.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 13 | 0.0 |
| line | l | !l | condition |
|---|---|---|---|
| 51 | 0 | 0 | shift() || die(q[I want 'host name' or 'IP address' or 'URL'.]) |
| 52 | 0 | 0 | shift() || {} |
| 53 | 0 | 0 | $$attr{'timeout'} || $$self[0] || 10 |
| 71 | 0 | 0 | $dns->search("$args.$_[0]", 'PTR') || (return 0) |
| 98 | 0 | 0 | &$check($_) || (next) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 80 | 0 | 0 | 0 | $dns->search("$args.$_[0]", 'A') || do { $domain ||= do { $args =~ /([^\.]+\.(?:$TLDregex))$/ ? $1 : 'unmatch' }; return 0 if $args eq $domain or $domain eq 'unmatch'; my $result = $dns->search("$domain.$_[0]", 'A') || (return 0); $args = $domain; $result } |