File Coverage

blib/lib/IO/SigGuard/sysread.pm
Criterion Covered Total %
statement 4 4 100.0
branch 5 8 62.5
condition n/a
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             READ: {
5 737 0   737 0 4793 $result = ( (@_ == 3) ? CORE::sysread( $_[0], $_[1], $_[2] ) : (@_ == 4) ? CORE::sysread( $_[0], $_[1], $_[2], $_[3] ) : die "Wrong args count! sysread(@_)" ) or do {
  803 50       7476373  
    100          
6 67 100       1841 redo READ if $! == Errno::EINTR();
7             };
8             }
9              
10 737         9063 return $result;
11             }
12              
13             1;