| blib/lib/OxdPackages/OxdClientSocket.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 14 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 61 | 0 | 0 | $char_count ? : |
| 68 | 0 | 0 | unless $socket = 'IO::Socket::INET'->new('PeerHost', '127.0.0.1', 'PeerPort', $oxd_host_port, 'Proto', 'tcp', 'Reuse', 1) |
| 69 | 0 | 0 | if (not $socket) { } |
| 76 | 0 | 0 | unless ($socket->syswrite($data, length $data)) |
| 86 | 0 | 0 | if ($result) { } |
| 91 | 0 | 0 | if (close $socket) |
| 121 | 0 | 0 | unless open my $fh, '>>', $filename |