| … | |
… | |
| 35 | |
35 | |
| 36 | BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") } |
36 | BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") } |
| 37 | |
37 | |
| 38 | use Coro (); |
38 | use Coro (); |
| 39 | |
39 | |
| 40 | $VERSION = 1.6; |
40 | $VERSION = 1.7; |
| 41 | |
41 | |
| 42 | =item new [inital count] |
42 | =item new [inital count] |
| 43 | |
43 | |
| 44 | Creates a new sempahore object with the given initial lock count. The |
44 | Creates a new sempahore object with the given initial lock count. The |
| 45 | default lock count is 1, which means it is unlocked by default. Zero (or |
45 | default lock count is 1, which means it is unlocked by default. Zero (or |
| … | |
… | |
| 161 | |
161 | |
| 162 | sub Coro::Semaphore::guard::DESTROY { |
162 | sub Coro::Semaphore::guard::DESTROY { |
| 163 | &up(${${$_[0]}}); |
163 | &up(${${$_[0]}}); |
| 164 | } |
164 | } |
| 165 | |
165 | |
| 166 | 1; |
166 | 1 |
| 167 | |
167 | |
| 168 | =back |
168 | =back |
| 169 | |
169 | |
| 170 | =head1 AUTHOR |
170 | =head1 AUTHOR |
| 171 | |
171 | |
