File Coverage

blib/lib/IO/SigGuard/recv.pm
Criterion Covered Total %
statement 4 4 100.0
branch 4 6 66.6
condition n/a
subroutine 1 1 100.0
pod 0 1 0.0
total 9 12 75.0


line stmt bran cond sub pod time code
1             package IO::SigGuard;
2              
3             sub recv {
4             RECV: {
5 693 50   693 0 5021 $result = ( (@_ == 4) ? CORE::recv( $_[0], $_[1], $_[2], $_[3] ) : die "Wrong args count! recv(@_)" ) or do {
  1385 50       7019877  
6 1385 100       17945 redo RECV if $! == Errno::EINTR();
7             };
8             }
9              
10 693         2967 return $result;
11             }
12              
13             1;