| blib/lib/Test/RequiresInternet.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 22 | 81.8 |
| line | true | false | branch |
|---|---|---|---|
| 11 | 1 | 5 | if env('NO_NETWORK_TESTING') |
| 16 | 0 | 5 | if ($argc == 0) { } |
| 1 | 4 | elsif ($argc % 2 != 0) { } | |
| 31 | 2 | 3 | if ($@) |
| 41 | 2 | 3 | if ($port =~ /\D/) { } |
| 48 | 1 | 4 | unless $portnum |
| 50 | 1 | 3 | unless my $iaddr = inet_aton($host) |
| 55 | 0 | 3 | unless socket my $sock, 2, 1, $proto |
| 56 | 0 | 3 | unless connect $sock, $paddr |
| 57 | 0 | 3 | unless close $sock |
| 63 | 1 | 5 | if exists $ENV{$_[0]} |