| blib/lib/Net/SSH/Perl/Util/Win32.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 18 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 0 | unless socket my $l, 2, 1, 0 |
| 20 | 0 | 0 | unless bind $l, Socket::pack_sockaddr_in(0, "\177\000\000\cA") |
| 23 | 0 | 0 | unless my $sa = getsockname $l |
| 26 | 0 | 0 | unless listen $l, 1 |
| 29 | 0 | 0 | unless socket my $r, 2, 1, 0 |
| 32 | 0 | 0 | unless bind $r, Socket::pack_sockaddr_in(0, "\177\000\000\cA") |
| 35 | 0 | 0 | unless connect $r, $sa |
| 38 | 0 | 0 | unless accept my $w, $l |
| 43 | 0 | 0 | unless (Socket::unpack_sockaddr_in(getpeername $r))[0] == (Socket::unpack_sockaddr_in(getsockname $w))[0] |