… | |
… | |
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 = "0.9"; |
40 | $VERSION = 1.9; |
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; |
|
|
167 | |
|
|
168 | =back |
166 | =back |
169 | |
167 | |
170 | =head1 AUTHOR |
168 | =head1 AUTHOR |
171 | |
169 | |
172 | Marc Lehmann <pcg@goof.com> |
170 | Marc Lehmann <schmorp@schmorp.de> |
173 | http://www.goof.com/pcg/marc/ |
171 | http://home.schmorp.de/ |
174 | |
172 | |
175 | =cut |
173 | =cut |
176 | |
174 | |
|
|
175 | 1 |
|
|
176 | |