… | |
… | |
311 | >> method, usually without arguments. The only argument pair allowed is |
311 | >> method, usually without arguments. The only argument pair allowed is |
312 | C<cb>, which specifies a callback to be called when the condition variable |
312 | C<cb>, which specifies a callback to be called when the condition variable |
313 | becomes true. |
313 | becomes true. |
314 | |
314 | |
315 | After creation, the condition variable is "false" until it becomes "true" |
315 | After creation, the condition variable is "false" until it becomes "true" |
316 | by calling the C<send> method. |
316 | by calling the C<send> method (or calling the condition variable as if it |
|
|
317 | were a callback). |
317 | |
318 | |
318 | Condition variables are similar to callbacks, except that you can |
319 | Condition variables are similar to callbacks, except that you can |
319 | optionally wait for them. They can also be called merge points - points |
320 | optionally wait for them. They can also be called merge points - points |
320 | in time where multiple outstanding events have been processed. And yet |
321 | in time where multiple outstanding events have been processed. And yet |
321 | another way to call them is transactions - each condition variable can be |
322 | another way to call them is transactions - each condition variable can be |
… | |
… | |
347 | |
348 | |
348 | There are two "sides" to a condition variable - the "producer side" which |
349 | There are two "sides" to a condition variable - the "producer side" which |
349 | eventually calls C<< -> send >>, and the "consumer side", which waits |
350 | eventually calls C<< -> send >>, and the "consumer side", which waits |
350 | for the send to occur. |
351 | for the send to occur. |
351 | |
352 | |
352 | Example: |
353 | Example: wait for a timer. |
353 | |
354 | |
354 | # wait till the result is ready |
355 | # wait till the result is ready |
355 | my $result_ready = AnyEvent->condvar; |
356 | my $result_ready = AnyEvent->condvar; |
356 | |
357 | |
357 | # do something such as adding a timer |
358 | # do something such as adding a timer |
… | |
… | |
365 | |
366 | |
366 | # this "blocks" (while handling events) till the callback |
367 | # this "blocks" (while handling events) till the callback |
367 | # calls send |
368 | # calls send |
368 | $result_ready->recv; |
369 | $result_ready->recv; |
369 | |
370 | |
|
|
371 | Example: wait for a timer, but take advantage of the fact that |
|
|
372 | condition variables are also code references. |
|
|
373 | |
|
|
374 | my $done = AnyEvent->condvar; |
|
|
375 | my $delay = AnyEvent->timer (after => 5, cb => $done); |
|
|
376 | $done->recv; |
|
|
377 | |
370 | =head3 METHODS FOR PRODUCERS |
378 | =head3 METHODS FOR PRODUCERS |
371 | |
379 | |
372 | These methods should only be used by the producing side, i.e. the |
380 | These methods should only be used by the producing side, i.e. the |
373 | code/module that eventually sends the signal. Note that it is also |
381 | code/module that eventually sends the signal. Note that it is also |
374 | the producer side which creates the condvar in most cases, but it isn't |
382 | the producer side which creates the condvar in most cases, but it isn't |
… | |
… | |
385 | If a callback has been set on the condition variable, it is called |
393 | If a callback has been set on the condition variable, it is called |
386 | immediately from within send. |
394 | immediately from within send. |
387 | |
395 | |
388 | Any arguments passed to the C<send> call will be returned by all |
396 | Any arguments passed to the C<send> call will be returned by all |
389 | future C<< ->recv >> calls. |
397 | future C<< ->recv >> calls. |
|
|
398 | |
|
|
399 | Condition variables are overloaded so one can call them directly (as a |
|
|
400 | code reference). Calling them directly is the same as calling C<send>. |
390 | |
401 | |
391 | =item $cv->croak ($error) |
402 | =item $cv->croak ($error) |
392 | |
403 | |
393 | Similar to send, but causes all call's to C<< ->recv >> to invoke |
404 | Similar to send, but causes all call's to C<< ->recv >> to invoke |
394 | C<Carp::croak> with the given error message/object/scalar. |
405 | C<Carp::croak> with the given error message/object/scalar. |
… | |
… | |
696 | no warnings; |
707 | no warnings; |
697 | use strict; |
708 | use strict; |
698 | |
709 | |
699 | use Carp; |
710 | use Carp; |
700 | |
711 | |
701 | our $VERSION = '4.0'; |
712 | our $VERSION = '4.03'; |
702 | our $MODEL; |
713 | our $MODEL; |
703 | |
714 | |
704 | our $AUTOLOAD; |
715 | our $AUTOLOAD; |
705 | our @ISA; |
716 | our @ISA; |
706 | |
717 | |
… | |
… | |
914 | |
925 | |
915 | our @ISA = AnyEvent::CondVar::Base::; |
926 | our @ISA = AnyEvent::CondVar::Base::; |
916 | |
927 | |
917 | package AnyEvent::CondVar::Base; |
928 | package AnyEvent::CondVar::Base; |
918 | |
929 | |
|
|
930 | use overload |
|
|
931 | '&{}' => sub { my $self = shift; sub { $self->send (@_) } }, |
|
|
932 | fallback => 1; |
|
|
933 | |
919 | sub _send { |
934 | sub _send { |
920 | # nop |
935 | # nop |
921 | } |
936 | } |
922 | |
937 | |
923 | sub send { |
938 | sub send { |