File Coverage

blib/lib/IO/SigGuard/sysread.pm
Criterion Covered Total %
statement 3 3 100.0
branch 5 8 62.5
condition n/a
subroutine 1 1 100.0
pod 0 1 0.0
total 9 13 69.2


line stmt bran cond sub pod time code
1             package IO::SigGuard;
2              
3             sub sysread {
4 957 0   957 0 7467233 $result = ( (@_ == 3) ? CORE::sysread( $_[0], $_[1], $_[2] ) : (@_ == 4) ? CORE::sysread( $_[0], $_[1], $_[2], $_[3] ) : die "Wrong args count! sysread(@_)" ) or do {
    50          
    100          
5 225 100       7431 goto &sysread if $! == Errno::EINTR();
6             };
7              
8 733         10528 return $result;
9             }
10              
11             1;