… | |
… | |
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.0"; |
79 | our $VERSION = 5.1; |
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 | ); |