| … | |
… | |
| 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 = 0.97; |
| 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 |
