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; |