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