| blib/lib/Robots/Validate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 194 | 1 | 4 | if (XXX and not $args) |
| 205 | 4 | 1 | if (my $reply = $res->query($ip, 'PTR')) { } |
| 209 | 0 | 1 | if $self->die_on_error |
| 212 | 1 | 4 | unless $hostname |
| 218 | 3 | 1 | unless not $agent |
| 220 | 0 | 4 | unless my $reply = $res->search($hostname, "A") |
| 223 | 0 | 4 | unless $reply |
| 225 | 0 | 4 | if (&none(sub { |
| 235 | 3 | 1 | if (my $match = &first(sub { |