File Coverage

blib/lib/IO/SigGuard/recv.pm
Criterion Covered Total %
statement 4 4 100.0
branch 3 4 75.0
condition 3 3 100.0
subroutine 1 1 100.0
pod 0 1 0.0
total 11 13 84.6


line stmt bran cond sub pod time code
1             package IO::SigGuard;
2              
3             sub recv {
4 1254 50   1254 0 27178 die "Wrong args count! recv(@_)" if @_ != 4;
5              
6 1254         7165339 $result = CORE::recv( $_[0], $_[1], $_[2], $_[3] );
7              
8 1254 100 100     18454 goto &recv if !defined $result && $! == Errno::EINTR();
9              
10 698         5660 return $result;
11             }
12              
13             1;