… | |
… | |
57 | |
57 | |
58 | our $idle; # idle handler |
58 | our $idle; # idle handler |
59 | our $main; # main coroutine |
59 | our $main; # main coroutine |
60 | our $current; # current coroutine |
60 | our $current; # current coroutine |
61 | |
61 | |
62 | our $VERSION = '4.11'; |
62 | our $VERSION = '4.22'; |
63 | |
63 | |
64 | our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub); |
64 | our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub); |
65 | our %EXPORT_TAGS = ( |
65 | our %EXPORT_TAGS = ( |
66 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
66 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
67 | ); |
67 | ); |