blib/lib/Harbinger/Client.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 5 | 8 | 62.5 |
line | true | false | branch |
---|---|---|---|
30 | 0 | 1 | unless 'IO::Socket::INET'->new('PeerAddr', $_[0]->_harbinger_ip, 'PeerPort', $_[0]->_harbinger_port, 'Proto', 'udp') |
68 | 2 | 1 | unless my $msg = $doom->_as_sereal |
72 | 0 | 1 | unless CORE::send($self->_udp_handle, $msg, 0) == length $msg |
76 | 1 | 0 | $ENV{'HARBINGER_WARNINGS'} ? : |