ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.134 by root, Sun May 25 04:44:04 2008 UTC vs.
Revision 1.141 by root, Mon May 26 17:45:05 2008 UTC

… …
312C<cb>, which specifies a callback to be called when the condition variable 312C<cb>, which specifies a callback to be called when the condition variable
313becomes true. 313becomes true.
314 314
315After creation, the condition variable is "false" until it becomes "true" 315After creation, the condition variable is "false" until it becomes "true"
316by calling the C<send> method (or calling the condition variable as if it 316by calling the C<send> method (or calling the condition variable as if it
317were a callback). 317were a callback, read about the caveats in the description for the C<<
318->send >> method).
318 319
319Condition variables are similar to callbacks, except that you can 320Condition variables are similar to callbacks, except that you can
320optionally wait for them. They can also be called merge points - points 321optionally wait for them. They can also be called merge points - points
321in time where multiple outstanding events have been processed. And yet 322in time where multiple outstanding events have been processed. And yet
322another way to call them is transactions - each condition variable can be 323another way to call them is transactions - each condition variable can be
… …
394immediately from within send. 395immediately from within send.
395 396
396Any arguments passed to the C<send> call will be returned by all 397Any arguments passed to the C<send> call will be returned by all
397future C<< ->recv >> calls. 398future C<< ->recv >> calls.
398 399
399Condition variables are overloaded so one can call them directly (as a 400Condition variables are overloaded so one can call them directly
400code reference). Calling them directly is the same as calling C<send>. 401(as a code reference). Calling them directly is the same as calling
402C<send>. Note, however, that many C-based event loops do not handle
403overloading, so as tempting as it may be, passing a condition variable
404instead of a callback does not work. Both the pure perl and EV loops
405support overloading, however, as well as all functions that use perl to
406invoke a callback (as in L<AnyEvent::Socket> and L<AnyEvent::DNS> for
407example).
401 408
402=item $cv->croak ($error) 409=item $cv->croak ($error)
403 410
404Similar to send, but causes all call's to C<< ->recv >> to invoke 411Similar to send, but causes all call's to C<< ->recv >> to invoke
405C<Carp::croak> with the given error message/object/scalar. 412C<Carp::croak> with the given error message/object/scalar.
… …
724no warnings; 731no warnings;
725use strict; 732use strict;
726 733
727use Carp; 734use Carp;
728 735
729our $VERSION = '4.03'; 736our $VERSION = '4.05';
730our $MODEL; 737our $MODEL;
731 738
732our $AUTOLOAD; 739our $AUTOLOAD;
733our @ISA; 740our @ISA;
734 741
742our @REGISTRY;
743
744our $WIN32;
745
746BEGIN {
747 my $win32 = ! ! ($^O =~ /mswin32/i);
748 eval "sub WIN32(){ $win32 }";
749}
750
735our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1; 751our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1;
736 752
737our @REGISTRY; 753our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred
738
739our %PROTOCOL; # (ipv4|ipv6) => (1|2)
740 754
741{ 755{
742 my $idx; 756 my $idx;
743 $PROTOCOL{$_} = ++$idx 757 $PROTOCOL{$_} = ++$idx
758 for reverse split /\s*,\s*/,
744 for split /\s*,\s*/, $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6"; 759 $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6";
745} 760}
746 761
747my @models = ( 762my @models = (
748 [EV:: => AnyEvent::Impl::EV::], 763 [EV:: => AnyEvent::Impl::EV::],
749 [Event:: => AnyEvent::Impl::Event::], 764 [Event:: => AnyEvent::Impl::Event::],
750 [Tk:: => AnyEvent::Impl::Tk::],
751 [Wx:: => AnyEvent::Impl::POE::],
752 [Prima:: => AnyEvent::Impl::POE::],
753 [AnyEvent::Impl::Perl:: => AnyEvent::Impl::Perl::], 765 [AnyEvent::Impl::Perl:: => AnyEvent::Impl::Perl::],
754 # everything below here will not be autoprobed as the pureperl backend should work everywhere 766 # everything below here will not be autoprobed
755 [Glib:: => AnyEvent::Impl::Glib::], 767 # as the pureperl backend should work everywhere
768 # and is usually faster
769 [Tk:: => AnyEvent::Impl::Tk::], # crashes with many handles
770 [Glib:: => AnyEvent::Impl::Glib::], # becomes extremely slow with many watchers
756 [Event::Lib:: => AnyEvent::Impl::EventLib::], # too buggy 771 [Event::Lib:: => AnyEvent::Impl::EventLib::], # too buggy
757 [Qt:: => AnyEvent::Impl::Qt::], # requires special main program 772 [Qt:: => AnyEvent::Impl::Qt::], # requires special main program
758 [POE::Kernel:: => AnyEvent::Impl::POE::], # lasciate ogni speranza 773 [POE::Kernel:: => AnyEvent::Impl::POE::], # lasciate ogni speranza
774 [Wx:: => AnyEvent::Impl::POE::],
775 [Prima:: => AnyEvent::Impl::POE::],
759); 776);
760 777
761our %method = map +($_ => 1), qw(io timer signal child condvar one_event DESTROY); 778our %method = map +($_ => 1), qw(io timer signal child condvar one_event DESTROY);
762 779
763our @post_detect; 780our @post_detect;
… …
783} 800}
784 801
785sub detect() { 802sub detect() {
786 unless ($MODEL) { 803 unless ($MODEL) {
787 no strict 'refs'; 804 no strict 'refs';
805 local $SIG{__DIE__};
788 806
789 if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) { 807 if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) {
790 my $model = "AnyEvent::Impl::$1"; 808 my $model = "AnyEvent::Impl::$1";
791 if (eval "require $model") { 809 if (eval "require $model") {
792 $MODEL = $model; 810 $MODEL = $model;
… …
915 or Carp::croak "required option 'pid' is missing"; 933 or Carp::croak "required option 'pid' is missing";
916 934
917 $PID_CB{$pid}{$arg{cb}} = $arg{cb}; 935 $PID_CB{$pid}{$arg{cb}} = $arg{cb};
918 936
919 unless ($WNOHANG) { 937 unless ($WNOHANG) {
920 $WNOHANG = eval { require POSIX; &POSIX::WNOHANG } || 1; 938 $WNOHANG = eval { local $SIG{__DIE__}; require POSIX; &POSIX::WNOHANG } || 1;
921 } 939 }
922 940
923 unless ($CHLD_W) { 941 unless ($CHLD_W) {
924 $CHLD_W = AnyEvent->signal (signal => 'CHLD', cb => \&_sigchld); 942 $CHLD_W = AnyEvent->signal (signal => 'CHLD', cb => \&_sigchld);
925 # child could be a zombie already, so make at least one round 943 # child could be a zombie already, so make at least one round

Diff Legend

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