--- Coro/Coro.pm	2005/02/22 19:51:58	1.65
+++ Coro/Coro.pm	2006/10/24 03:55:28	1.77
@@ -32,21 +32,24 @@
 
 package Coro;
 
-BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") }
+use strict;
+no warnings "uninitialized";
 
 use Coro::State;
 
-use vars qw($idle $main $current);
+use base Exporter::;
 
-use base Exporter;
+our $idle;    # idle coroutine
+our $main;    # main coroutine
+our $current; # current coroutine
 
-$VERSION = 1.1;
+our $VERSION = '2.0';
 
-@EXPORT = qw(async cede schedule terminate current);
-%EXPORT_TAGS = (
+our @EXPORT = qw(async cede schedule terminate current);
+our %EXPORT_TAGS = (
       prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)],
 );
-@EXPORT_OK = @{$EXPORT_TAGS{prio}};
+our @EXPORT_OK = @{$EXPORT_TAGS{prio}};
 
 {
    my @async;
@@ -54,7 +57,10 @@
 
    # this way of handling attributes simply is NOT scalable ;()
    sub import {
+      no strict 'refs';
+
       Coro->export_to_level(1, @_);
+
       my $old = *{(caller)[0]."::MODIFY_CODE_ATTRIBUTES"}{CODE};
       *{(caller)[0]."::MODIFY_CODE_ATTRIBUTES"} = sub {
          my ($package, $ref) = (shift, shift);
@@ -339,13 +345,17 @@
 
 =head1 SEE ALSO
 
-L<Coro::Channel>, L<Coro::Cont>, L<Coro::Specific>, L<Coro::Semaphore>,
-L<Coro::Signal>, L<Coro::State>, L<Coro::Timer>, L<Coro::Event>,
-L<Coro::Handle>, L<Coro::RWLock>, L<Coro::Socket>.
+Support/Utility: L<Coro::Cont>, L<Coro::Specific>, L<Coro::State>, L<Coro::Util>.
+
+Locking/IPC: L<Coro::Signal>, L<Coro::Channel>, L<Coro::Semaphore>, L<Coro::SemaphoreSet>, L<Coro::RWLock>.
+
+Event/IO: L<Coro::Timer>, L<Coro::Event>, L<Coro::Handle>, L<Coro::Socket>, L<Coro::Select>.
+
+Embedding: L<Coro:MakeMaker>
 
 =head1 AUTHOR
 
- Marc Lehmann <pcg@goof.com>
+ Marc Lehmann <schmorp@schmorp.de>
  http://home.schmorp.de/
 
 =cut