| blib/lib/ParaDNS.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 29 | 41.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 121 | 3 | 1 | 0 | exists $cache{$type}{$host} and @{$cache{$type}{$host};} > 0 |
| 4 | 0 | 0 | exists $cache{$type}{$host} and @{$cache{$type}{$host};} > 0 and $cache{$type}{$host}[0]{'timeout'} >= $now | |
| 137 | 0 | 0 | 0 | $type eq 'A' and $host =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ |
| line | l | !l | condition |
|---|---|---|---|
| 29 | 0 | 1 | $ENV{'NODNS'} || 0 |
| 33 | 0 | 1 | $ENV{'PARADNS_DEBUG'} || 0 |
| 34 | 0 | 1 | $ENV{'PARADNS_NO_CACHE'} || 0 |
| 101 | 4 | 0 | scalar @{$$self{'hosts'};} || 'No hosts supplied' |
| 103 | 4 | 0 | $options{'callback'} || die('No callback given') |
| 170 | 0 | 0 | $ttl ||= 0 |
| 189 | 0 | 0 | $ttl ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 49 | 3 | 1 | 0 | $cache_cleanup ||= 'Danga::Socket'->AddTimer(60, \&_cache_cleanup) |
| 58 | 3 | 1 | 0 | $RESOLVER{$$} ||= 'ParaDNS::Resolver'->new($servers) |