… | |
… | |
25 | =cut |
25 | =cut |
26 | |
26 | |
27 | package Coro::Channel; |
27 | package Coro::Channel; |
28 | |
28 | |
29 | use Coro (); |
29 | use Coro (); |
30 | no warnings qw(uninitialized); |
30 | BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") } |
31 | |
31 | |
32 | $VERSION = 0.652; |
32 | $VERSION = 1.31; |
33 | |
33 | |
34 | =item $q = new Coro:Channel $maxsize |
34 | =item $q = new Coro:Channel $maxsize |
35 | |
35 | |
36 | Create a new channel with the given maximum size (unlimited if C<maxsize> |
36 | Create a new channel with the given maximum size (unlimited if C<maxsize> |
37 | is omitted). Giving a size of one gives you a traditional channel, i.e. a |
37 | is omitted). Giving a size of one gives you a traditional channel, i.e. a |
… | |
… | |
98 | |
98 | |
99 | =back |
99 | =back |
100 | |
100 | |
101 | =head1 AUTHOR |
101 | =head1 AUTHOR |
102 | |
102 | |
103 | Marc Lehmann <pcg@goof.com> |
103 | Marc Lehmann <schmorp@schmorp.de> |
104 | http://www.goof.com/pcg/marc/ |
104 | http://home.schmorp.de/ |
105 | |
105 | |
106 | =cut |
106 | =cut |
107 | |
107 | |