[ViewVC] Diff of: cvs/Coro/Coro/Semaphore.pm

Comparing Coro/Coro/Semaphore.pm (file contents):
Revision 1.11 by root, Wed Jul 25 19:28:00 2001 UTC vs.
Revision 1.16 by root, Thu Aug 30 02:58:17 2001 UTC

  $sig->up;
 =head1 DESCRIPTION
-This module implements counted semaphores. You can initialize a mutex
+This module implements counting semaphores. You can initialize a mutex
 with any level of parallel users, that is, you can intialize a sempahore
 that can be C<down>ed more than once until it blocks. There is no owner
 associated with semaphores, so one coroutine can C<down> it while another
 can C<up> it.
 package Coro::Semaphore;
 use Coro ();
-$VERSION = 0.12;
+$VERSION = 0.45;
-=item new [inital count, default one]
+=item new [inital count]
 Creates a new sempahore object with the given initial lock count. The
 default lock count is 1, which means it is unlocked by default. Zero (or
 negative values) are also allowed, in which case the semaphore is locked
 by default.
    } else {
       return 0;
    }
 }
+=item $sem->waiters
+In scalar context, returns the number of coroutines waiting for this
+semaphore.
+=cut
+sub waiters {
+   @{$_[0][1]};
+}
+=item $guard = $sem->guard
+This method calls C<down> and then creates a guard object. When the guard
+object is destroyed it automatically calls C<up>.
+=cut
+sub guard {
+   &down;
+   # double indirection because bless works on the referenced
+   # object, not (only) on the reference itself.
+   bless \\$_[0], Coro::Semaphore::Guard::;
+}
+sub Coro::Semaphore::Guard::DESTROY {
+   &up(${${$_[0]}});
+}
 1;
 =back
 =head1 AUTHOR

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines