| blib/lib/Test/Internet.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 10 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 69 | 20 | 0 | if inet_aton($_) |
| 72 | 0 | 2 | unless scalar @nameservers |
| 74 | 2 | 0 | unless defined $timeout |
| 81 | 2 | 0 | if (defined $response) |
| 82 | 2 | 0 | if grep {$_->type eq 'NS';} $response->answer |