blib/lib/AnyEvent/DNS.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 11 | 41 | 26.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
1101 | 0 | 0 | 0 | $dns and /^\s*(\S+)\s*$/ |
1208 | 0 | 0 | 5 | $port == 53 and grep(($_ eq $host), @{$$self{'server'};}) |
1314 | 17 | 0 | 0 | @{$self->{'reuse_q'};} and $self->{'reuse_q'}[0][0] <= $NOW |
1528 | 0 | 0 | 1 | $name eq lc $_->[0] && ($atype{'*'} || $atype{$_->[1]}) |
1534 | 0 | 0 | 0 | $name eq lc $_->[0] && $_->[1] eq 'cname' |
line | l | !l | condition |
---|---|---|---|
459 | 5 | 0 | $_->[2] or 'in' |
605 | 5 | 0 | $dec_rr{$rt} || sub { $_; } |
824 | 0 | 2 | $ENV{'PERL_ANYEVENT_MAX_OUTSTANDING_DNS'} * 1 || 10 |
1499 | 0 | 5 | $opt{'class'} || 'in' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
563 | 5 | 0 | 0 | $type_str{$qt} || $qt |
5 | 0 | 0 | $class_str{$qc} || $qc | |
605 | 5 | 0 | 0 | $type_str{$rt} || $rt |
5 | 0 | 0 | $class_str{$rc} || $rc | |
1096 | 0 | 0 | 0 | /^\S/ or /^\s[^:]{16,}: / |
1323 | 0 | 0 | 0 | $self->{'reuse_to'} ||= &AE::timer($self->{'reuse_q'}[0][0] - $NOW, 0, sub { delete $self->{'reuse_to'}; $self->_scheduler; } ) |