| blib/lib/AnyEvent/DNS/Cache/Simple.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 22 | 68.1 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 2 | 2 | if (my $cached = $self->{'adcs_cache'}->get($cache_key)) |
| 19 | 0 | 2 | if ($expires_at < &Time::HiRes::time()) |
| 23 | 0 | 2 | unless (defined $res) |
| 33 | 1 | 1 | unless (@_) |
| 41 | 1 | 0 | @{$res->{'an'};} ? : |
| 50 | 0 | 2 | @_ == 1 ? : |
| 51 | 0 | 2 | exists $args{'ttl'} ? : |
| 52 | 0 | 2 | exists $args{'negative_ttl'} ? : |
| 53 | 1 | 1 | exists $args{'cache'} ? : |
| 66 | 1 | 1 | unless ($args{'server'}) |
| 69 | 0 | 1 | $ENV{'PERL_ANYEVENT_RESOLV_CONF'} ? : |