| … | |
… | |
| 366 | |
366 | |
| 367 | our $idle; # idle handler |
367 | our $idle; # idle handler |
| 368 | our $main; # main coro |
368 | our $main; # main coro |
| 369 | our $current; # current coro |
369 | our $current; # current coro |
| 370 | |
370 | |
| 371 | our $VERSION = 6.54; |
371 | our $VERSION = 6.55; |
| 372 | |
372 | |
| 373 | our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub rouse_cb rouse_wait); |
373 | our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub rouse_cb rouse_wait); |
| 374 | our %EXPORT_TAGS = ( |
374 | our %EXPORT_TAGS = ( |
| 375 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
375 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
| 376 | ); |
376 | ); |
| … | |
… | |
| 1114 | |
1114 | |
| 1115 | # some modules have their new predefined in State.xs, some don't |
1115 | # some modules have their new predefined in State.xs, some don't |
| 1116 | *{"Coro::$module\::new"} = $old |
1116 | *{"Coro::$module\::new"} = $old |
| 1117 | if $old; |
1117 | if $old; |
| 1118 | |
1118 | |
| 1119 | goto &{"Coro::$module\::new"}; |
1119 | goto &{"Coro::$module\::new"} |
| 1120 | }; |
1120 | }; |
| 1121 | } |
1121 | } |
| 1122 | |
1122 | |
| 1123 | 1; |
1123 | 1; |
| 1124 | |
1124 | |
