File Coverage

blib/lib/IO/SigGuard/send.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch	2	6	33.3
condition	2	3	66.6
subroutine	1	1	100.0
pod	0	1	0.0
total	8	14	57.1

package IO::SigGuard;

sub send {
    $result = ( (@_ == 3) ? CORE::send( $_[0], $_[1], $_[2] ) : (@_ == 4) ? CORE::send( $_[0], $_[1], $_[2], $_[3] ) : die "Wrong args count! send(@_)" );

    #EINTR means the file pointer is unchanged.
    goto &send if !defined $result && $! == Errno::EINTR();

    return $result;
}

1;