… | |
… | |
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. |
… | |
… | |
508 | The callback will be called when the condition becomes "true", i.e. when |
519 | The callback will be called when the condition becomes "true", i.e. when |
509 | C<send> or C<croak> are called. Calling C<recv> inside the callback |
520 | C<send> or C<croak> are called. Calling C<recv> inside the callback |
510 | or at any later time is guaranteed not to block. |
521 | or at any later time is guaranteed not to block. |
511 | |
522 | |
512 | =back |
523 | =back |
|
|
524 | |
|
|
525 | =head3 MAINLOOP EMULATION |
|
|
526 | |
|
|
527 | Sometimes (often for short test scripts, or even standalone programs |
|
|
528 | who only want to use AnyEvent), you I<do> want your program to block |
|
|
529 | indefinitely in some event loop. |
|
|
530 | |
|
|
531 | In that case, you cna use a condition variable like this: |
|
|
532 | |
|
|
533 | AnyEvent->condvar->recv; |
|
|
534 | |
|
|
535 | This has the effect of entering the event loop and looping forever. |
|
|
536 | |
|
|
537 | Note that usually your program has some exit condition, in which case |
|
|
538 | it is better to use the "traditional" approach of storing a condition |
|
|
539 | variable, waiting for it, and sending it when the program should exit |
|
|
540 | cleanly. |
|
|
541 | |
513 | |
542 | |
514 | =head1 GLOBAL VARIABLES AND FUNCTIONS |
543 | =head1 GLOBAL VARIABLES AND FUNCTIONS |
515 | |
544 | |
516 | =over 4 |
545 | =over 4 |
517 | |
546 | |
… | |
… | |
696 | no warnings; |
725 | no warnings; |
697 | use strict; |
726 | use strict; |
698 | |
727 | |
699 | use Carp; |
728 | use Carp; |
700 | |
729 | |
701 | our $VERSION = '3.6'; |
730 | our $VERSION = '4.03'; |
702 | our $MODEL; |
731 | our $MODEL; |
703 | |
732 | |
704 | our $AUTOLOAD; |
733 | our $AUTOLOAD; |
705 | our @ISA; |
734 | our @ISA; |
706 | |
735 | |
… | |
… | |
914 | |
943 | |
915 | our @ISA = AnyEvent::CondVar::Base::; |
944 | our @ISA = AnyEvent::CondVar::Base::; |
916 | |
945 | |
917 | package AnyEvent::CondVar::Base; |
946 | package AnyEvent::CondVar::Base; |
918 | |
947 | |
|
|
948 | use overload |
|
|
949 | '&{}' => sub { my $self = shift; sub { $self->send (@_) } }, |
|
|
950 | fallback => 1; |
|
|
951 | |
919 | sub _send { |
952 | sub _send { |
920 | # nop |
953 | # nop |
921 | } |
954 | } |
922 | |
955 | |
923 | sub send { |
956 | sub send { |