… | |
… | |
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. |
… | |
… | |
601 | |
612 | |
602 | If it doesn't care, it can just "use AnyEvent" and use it itself, or not |
613 | If it doesn't care, it can just "use AnyEvent" and use it itself, or not |
603 | do anything special (it does not need to be event-based) and let AnyEvent |
614 | do anything special (it does not need to be event-based) and let AnyEvent |
604 | decide which implementation to chose if some module relies on it. |
615 | decide which implementation to chose if some module relies on it. |
605 | |
616 | |
606 | If the main program relies on a specific event model. For example, in |
617 | If the main program relies on a specific event model - for example, in |
607 | Gtk2 programs you have to rely on the Glib module. You should load the |
618 | Gtk2 programs you have to rely on the Glib module - you should load the |
608 | event module before loading AnyEvent or any module that uses it: generally |
619 | event module before loading AnyEvent or any module that uses it: generally |
609 | speaking, you should load it as early as possible. The reason is that |
620 | speaking, you should load it as early as possible. The reason is that |
610 | modules might create watchers when they are loaded, and AnyEvent will |
621 | modules might create watchers when they are loaded, and AnyEvent will |
611 | decide on the event model to use as soon as it creates watchers, and it |
622 | decide on the event model to use as soon as it creates watchers, and it |
612 | might chose the wrong one unless you load the correct one yourself. |
623 | might chose the wrong one unless you load the correct one yourself. |
613 | |
624 | |
614 | You can chose to use a rather inefficient pure-perl implementation by |
625 | You can chose to use a pure-perl implementation by loading the |
615 | loading the C<AnyEvent::Impl::Perl> module, which gives you similar |
626 | C<AnyEvent::Impl::Perl> module, which gives you similar behaviour |
616 | behaviour everywhere, but letting AnyEvent chose is generally better. |
627 | everywhere, but letting AnyEvent chose the model is generally better. |
|
|
628 | |
|
|
629 | =head2 MAINLOOP EMULATION |
|
|
630 | |
|
|
631 | Sometimes (often for short test scripts, or even standalone programs who |
|
|
632 | only want to use AnyEvent), you do not want to run a specific event loop. |
|
|
633 | |
|
|
634 | In that case, you can use a condition variable like this: |
|
|
635 | |
|
|
636 | AnyEvent->condvar->recv; |
|
|
637 | |
|
|
638 | This has the effect of entering the event loop and looping forever. |
|
|
639 | |
|
|
640 | Note that usually your program has some exit condition, in which case |
|
|
641 | it is better to use the "traditional" approach of storing a condition |
|
|
642 | variable somewhere, waiting for it, and sending it when the program should |
|
|
643 | exit cleanly. |
|
|
644 | |
617 | |
645 | |
618 | =head1 OTHER MODULES |
646 | =head1 OTHER MODULES |
619 | |
647 | |
620 | The following is a non-exhaustive list of additional modules that use |
648 | The following is a non-exhaustive list of additional modules that use |
621 | AnyEvent and can therefore be mixed easily with other AnyEvent modules |
649 | AnyEvent and can therefore be mixed easily with other AnyEvent modules |
… | |
… | |
637 | |
665 | |
638 | Provides various utility functions for (internet protocol) sockets, |
666 | Provides various utility functions for (internet protocol) sockets, |
639 | addresses and name resolution. Also functions to create non-blocking tcp |
667 | addresses and name resolution. Also functions to create non-blocking tcp |
640 | connections or tcp servers, with IPv6 and SRV record support and more. |
668 | connections or tcp servers, with IPv6 and SRV record support and more. |
641 | |
669 | |
|
|
670 | =item L<AnyEvent::DNS> |
|
|
671 | |
|
|
672 | Provides rich asynchronous DNS resolver capabilities. |
|
|
673 | |
642 | =item L<AnyEvent::HTTPD> |
674 | =item L<AnyEvent::HTTPD> |
643 | |
675 | |
644 | Provides a simple web application server framework. |
676 | Provides a simple web application server framework. |
645 | |
|
|
646 | =item L<AnyEvent::DNS> |
|
|
647 | |
|
|
648 | Provides rich asynchronous DNS resolver capabilities. |
|
|
649 | |
677 | |
650 | =item L<AnyEvent::FastPing> |
678 | =item L<AnyEvent::FastPing> |
651 | |
679 | |
652 | The fastest ping in the west. |
680 | The fastest ping in the west. |
653 | |
681 | |
… | |
… | |
696 | no warnings; |
724 | no warnings; |
697 | use strict; |
725 | use strict; |
698 | |
726 | |
699 | use Carp; |
727 | use Carp; |
700 | |
728 | |
701 | our $VERSION = '3.6'; |
729 | our $VERSION = '4.03'; |
702 | our $MODEL; |
730 | our $MODEL; |
703 | |
731 | |
704 | our $AUTOLOAD; |
732 | our $AUTOLOAD; |
705 | our @ISA; |
733 | our @ISA; |
706 | |
734 | |
… | |
… | |
914 | |
942 | |
915 | our @ISA = AnyEvent::CondVar::Base::; |
943 | our @ISA = AnyEvent::CondVar::Base::; |
916 | |
944 | |
917 | package AnyEvent::CondVar::Base; |
945 | package AnyEvent::CondVar::Base; |
918 | |
946 | |
|
|
947 | use overload |
|
|
948 | '&{}' => sub { my $self = shift; sub { $self->send (@_) } }, |
|
|
949 | fallback => 1; |
|
|
950 | |
919 | sub _send { |
951 | sub _send { |
920 | # nop |
952 | # nop |
921 | } |
953 | } |
922 | |
954 | |
923 | sub send { |
955 | sub send { |