| blib/lib/Robots/Validate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 188 | 1 | 4 | if (XXX and not $args) |
| 199 | 4 | 1 | if (my $reply = $res->query($ip, 'PTR')) { } |
| 203 | 0 | 1 | if $self->die_on_error |
| 206 | 1 | 4 | unless $hostname |
| 212 | 3 | 1 | unless not $agent |
| 214 | 0 | 4 | unless my $reply = $res->search($hostname, 'A') |
| 217 | 0 | 4 | unless $reply |
| 219 | 0 | 4 | if (&none(sub { |
| 229 | 3 | 1 | if (my $match = &first(sub { |