… | |
… | |
38 | |
38 | |
39 | use vars qw($idle $main $current); |
39 | use vars qw($idle $main $current); |
40 | |
40 | |
41 | use base Exporter; |
41 | use base Exporter; |
42 | |
42 | |
43 | $VERSION = 0.97; |
43 | $VERSION = '1.0'; |
44 | |
44 | |
45 | @EXPORT = qw(async cede schedule terminate current); |
45 | @EXPORT = qw(async cede schedule terminate current); |
46 | %EXPORT_TAGS = ( |
46 | %EXPORT_TAGS = ( |
47 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
47 | prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], |
48 | ); |
48 | ); |
… | |
… | |
344 | L<Coro::Handle>, L<Coro::RWLock>, L<Coro::Socket>. |
344 | L<Coro::Handle>, L<Coro::RWLock>, L<Coro::Socket>. |
345 | |
345 | |
346 | =head1 AUTHOR |
346 | =head1 AUTHOR |
347 | |
347 | |
348 | Marc Lehmann <pcg@goof.com> |
348 | Marc Lehmann <pcg@goof.com> |
349 | http://www.goof.com/pcg/marc/ |
349 | http://home.schmorp.de/ |
350 | |
350 | |
351 | =cut |
351 | =cut |
352 | |
352 | |