| blib/lib/Robots/Validate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 200 | 1 | 4 | if (XXX and not $args) |
| 211 | 4 | 1 | if (my $reply = $res->query($ip, 'PTR')) { } |
| 215 | 0 | 1 | if $self->die_on_error |
| 218 | 1 | 4 | unless $hostname |
| 224 | 3 | 1 | unless not $agent |
| 226 | 0 | 4 | unless my $reply = $res->search($hostname, "A") |
| 229 | 0 | 4 | unless $reply |
| 231 | 0 | 4 | if (&none(sub { |
| 241 | 3 | 1 | if (my $match = &first(sub { |