| … | |
… | |
| 74 | |
74 | |
| 75 | our $idle; # idle handler |
75 | our $idle; # idle handler |
| 76 | our $main; # main coroutine |
76 | our $main; # main coroutine |
| 77 | our $current; # current coroutine |
77 | our $current; # current coroutine |
| 78 | |
78 | |
| 79 | our $VERSION = 5.11; |
79 | our $VERSION = 5.12; |
| 80 | |
80 | |
| 81 | our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub); |
81 | our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub); |
| 82 | our %EXPORT_TAGS = ( |
82 | our %EXPORT_TAGS = ( |
| 83 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
83 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
| 84 | ); |
84 | ); |
| … | |
… | |
| 352 | See C<async> and C<Coro::State::new> for additional info about the |
352 | See C<async> and C<Coro::State::new> for additional info about the |
| 353 | coroutine environment. |
353 | coroutine environment. |
| 354 | |
354 | |
| 355 | =cut |
355 | =cut |
| 356 | |
356 | |
| 357 | sub _terminate { |
357 | sub _coro_run { |
| 358 | terminate &{+shift}; |
358 | terminate &{+shift}; |
| 359 | } |
359 | } |
| 360 | |
360 | |
| 361 | =item $success = $coroutine->ready |
361 | =item $success = $coroutine->ready |
| 362 | |
362 | |
