File Coverage

blib/lib/IO/SigGuard/recv.pm
Criterion Covered Total %
statement 3 3 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 1 1 100.0
pod 0 1 0.0
total 6 10 60.0


line stmt bran cond sub pod time code
1             package IO::SigGuard;
2              
3             sub recv {
4 1554 50   1554 0 9471 die "Wrong args count! recv(@_)" if @_ != 4;
5              
6 1554   33     7882090 $result = CORE::recv( $_[0], $_[1], $_[2], $_[3] ) || do {
7             goto &recv if $! == Errno::EINTR();
8             };
9              
10 778         2926 return $result;
11             }
12              
13             1;