| blib/lib/Log/Dispatch/Gelf.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 45 | 1 | 3 | unless $socket->{'protocol'} =~ /^tcp|udp$/ |
| 50 | 2 | 2 | unless exists $socket->{'host'} and length $socket->{'host'} > 0 |
| 56 | 1 | 4 | unless $socket->{'port'} =~ /^\d+$/ |
| 63 | 1 | 1 | unless (defined $p{'socket'} or defined $p{'send_sub'}) |
| 72 | 1 | 1 | if ($p{'socket'}) |
| 96 | 0 | 0 | unless return 'IO::Socket::INET'->new('PeerAddr', $socket_opts->{'host'}, 'PeerPort', $socket_opts->{'port'}, 'Proto', $socket_opts->{'protocol'}) |