| … | |
… | |
| 16 | |
16 | |
| 17 | =cut |
17 | =cut |
| 18 | |
18 | |
| 19 | package Coro::Handle; |
19 | package Coro::Handle; |
| 20 | |
20 | |
| 21 | no warnings qw(uninitialized); |
21 | BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") } |
| 22 | |
22 | |
| 23 | use Errno (); |
23 | use Errno (); |
| 24 | use base 'Exporter'; |
24 | use base 'Exporter'; |
| 25 | |
25 | |
| 26 | $VERSION = 0.7; |
26 | $VERSION = 0.8; |
| 27 | |
27 | |
| 28 | @EXPORT = qw(unblock); |
28 | @EXPORT = qw(unblock); |
| 29 | |
29 | |
| 30 | =item $fh = new_from_fh Coro::Handle $fhandle [, arg => value...] |
30 | =item $fh = new_from_fh Coro::Handle $fhandle [, arg => value...] |
| 31 | |
31 | |
| … | |
… | |
| 166 | tied(${$_[0]})->[3]; |
166 | tied(${$_[0]})->[3]; |
| 167 | } |
167 | } |
| 168 | |
168 | |
| 169 | package Coro::Handle::FH; |
169 | package Coro::Handle::FH; |
| 170 | |
170 | |
| 171 | no warnings qw(uninitialized); |
171 | BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") } |
| 172 | |
172 | |
| 173 | use Fcntl (); |
173 | use Fcntl (); |
| 174 | use Errno (); |
174 | use Errno (); |
| 175 | use Carp 'croak'; |
175 | use Carp 'croak'; |
| 176 | |
176 | |
