File Coverage

blib/lib/Protocol/DBus/Socket.pm

Criterion	Covered	Total	%
statement	17	23	73.9
branch	0	4	0.0
condition	1	2	50.0
subroutine	6	7	85.7
pod	0	2	0.0
total	24	38	63.1

package Protocol::DBus::Socket;

use strict;
use warnings;

use Socket ();

use IO::SigGuard ('send');

# No support for this (POSIX-standard!) constant in macOS or Solaris.
use constant _MSG_NOSIGNAL => eval { Socket::MSG_NOSIGNAL() } || 0;

sub send_nosignal {

    # This is for OSes that don’t define this constant:
    local $SIG{'PIPE'} = 'IGNORE' if !_MSG_NOSIGNAL();

    return IO::SigGuard::send( $_[0], $_[1], $_[2] | _MSG_NOSIGNAL() );
}

my $sent;

sub sendmsg_nosignal {

    # This is for OSes that don’t define this constant:
    local $SIG{'PIPE'} = 'IGNORE' if !_MSG_NOSIGNAL();

  SEND: {
        $sent = Socket::MsgHdr::sendmsg( $_[0], $_[1], $_[2] | _MSG_NOSIGNAL() );
        if (!defined $sent) {
            redo SEND if $!{'EINTR'};
        }
    }

    return $sent;
}

1;