| … | |
… | |
| 32 | use EV; |
32 | use EV; |
| 33 | use Opcode; |
33 | use Opcode; |
| 34 | use Safe; |
34 | use Safe; |
| 35 | use Safe::Hole; |
35 | use Safe::Hole; |
| 36 | use Storable (); |
36 | use Storable (); |
|
|
37 | use Carp (); |
| 37 | |
38 | |
| 38 | use Guard (); |
39 | use Guard (); |
| 39 | use Coro (); |
40 | use Coro (); |
| 40 | use Coro::State; |
41 | use Coro::State; |
| 41 | use Coro::Handle; |
42 | use Coro::Handle; |
| … | |
… | |
| 289 | )) { |
290 | )) { |
| 290 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
291 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
| 291 | } |
292 | } |
| 292 | |
293 | |
| 293 | $EV::DIED = sub { |
294 | $EV::DIED = sub { |
| 294 | warn "error in event callback: @_"; |
295 | Carp::cluck "error in event callback: @_"; |
| 295 | }; |
296 | }; |
| 296 | |
297 | |
| 297 | ############################################################################# |
298 | ############################################################################# |
| 298 | |
299 | |
| 299 | =head2 UTILITY FUNCTIONS |
300 | =head2 UTILITY FUNCTIONS |
