File Coverage

blib/lib/IO/SigGuard/syswrite.pm

Criterion	Covered	Total	%
statement	2	2	100.0
branch			n/a
condition	1	3	33.3
subroutine	1	1	100.0
pod	0	1	0.0
total	4	7	57.1

package IO::SigGuard;

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

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

    return $result;
}

1;