… | |
… | |
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 | ); |
… | |
… | |
339 | |
339 | |
340 | =head1 SEE ALSO |
340 | =head1 SEE ALSO |
341 | |
341 | |
342 | L<Coro::Channel>, L<Coro::Cont>, L<Coro::Specific>, L<Coro::Semaphore>, |
342 | L<Coro::Channel>, L<Coro::Cont>, L<Coro::Specific>, L<Coro::Semaphore>, |
343 | L<Coro::Signal>, L<Coro::State>, L<Coro::Timer>, L<Coro::Event>, |
343 | L<Coro::Signal>, L<Coro::State>, L<Coro::Timer>, L<Coro::Event>, |
344 | L<Coro::L<Coro::RWLock>, Handle>, 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 | |