… | |
… | |
66 | |
66 | |
67 | our $idle; # idle handler |
67 | our $idle; # idle handler |
68 | our $main; # main coroutine |
68 | our $main; # main coroutine |
69 | our $current; # current coroutine |
69 | our $current; # current coroutine |
70 | |
70 | |
71 | our $VERSION = 4.742; |
71 | our $VERSION = 4.743; |
72 | |
72 | |
73 | our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub); |
73 | our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub); |
74 | our %EXPORT_TAGS = ( |
74 | our %EXPORT_TAGS = ( |
75 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
75 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
76 | ); |
76 | ); |