File Coverage

blib/lib/IO/SigGuard/sysread.pm
Criterion Covered Total %
statement 3 3 100.0
branch 3 6 50.0
condition 3 3 100.0
subroutine 1 1 100.0
pod 0 1 0.0
total 10 14 71.4


line stmt bran cond sub pod time code
1             package IO::SigGuard;
2              
3             sub sysread {
4 697 0   697 0 6995171 $result = ( (@_ == 3) ? CORE::sysread( $_[0], $_[1], $_[2] ) : (@_ == 4) ? CORE::sysread( $_[0], $_[1], $_[2], $_[3] ) : die "Wrong args count! sysread(@_)" );
    50          
5              
6 697 100 100     36089 goto &sysread if !defined $result && $! == Errno::EINTR();
7              
8 691         11516 return $result;
9             }
10              
11             1;