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.139 by root, Mon May 26 06:04:38 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.04';
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";
760}
761
762sub import {
763 shift;
764 return unless @_;
765
766 my $pkg = caller;
767
768 no strict 'refs';
769
770 for (@_) {
771 *{"$pkg\::WIN32"} = *WIN32 if $_ eq "WIN32";
772 }
745} 773}
746 774
747my @models = ( 775my @models = (
748 [EV:: => AnyEvent::Impl::EV::], 776 [EV:: => AnyEvent::Impl::EV::],
749 [Event:: => AnyEvent::Impl::Event::], 777 [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::], 778 [AnyEvent::Impl::Perl:: => AnyEvent::Impl::Perl::],
754 # everything below here will not be autoprobed as the pureperl backend should work everywhere 779 # everything below here will not be autoprobed
755 [Glib:: => AnyEvent::Impl::Glib::], 780 # as the pureperl backend should work everywhere
781 # and is usually faster
782 [Tk:: => AnyEvent::Impl::Tk::], # crashes with many handles
783 [Glib:: => AnyEvent::Impl::Glib::], # becomes extremely slow with many watchers
756 [Event::Lib:: => AnyEvent::Impl::EventLib::], # too buggy 784 [Event::Lib:: => AnyEvent::Impl::EventLib::], # too buggy
757 [Qt:: => AnyEvent::Impl::Qt::], # requires special main program 785 [Qt:: => AnyEvent::Impl::Qt::], # requires special main program
758 [POE::Kernel:: => AnyEvent::Impl::POE::], # lasciate ogni speranza 786 [POE::Kernel:: => AnyEvent::Impl::POE::], # lasciate ogni speranza
787 [Wx:: => AnyEvent::Impl::POE::],
788 [Prima:: => AnyEvent::Impl::POE::],
759); 789);
760 790
761our %method = map +($_ => 1), qw(io timer signal child condvar one_event DESTROY); 791our %method = map +($_ => 1), qw(io timer signal child condvar one_event DESTROY);
762 792
763our @post_detect; 793our @post_detect;
… …
783} 813}
784 814
785sub detect() { 815sub detect() {
786 unless ($MODEL) { 816 unless ($MODEL) {
787 no strict 'refs'; 817 no strict 'refs';
818 local $SIG{__DIE__};
788 819
789 if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) { 820 if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) {
790 my $model = "AnyEvent::Impl::$1"; 821 my $model = "AnyEvent::Impl::$1";
791 if (eval "require $model") { 822 if (eval "require $model") {
792 $MODEL = $model; 823 $MODEL = $model;
… …
915 or Carp::croak "required option 'pid' is missing"; 946 or Carp::croak "required option 'pid' is missing";
916 947
917 $PID_CB{$pid}{$arg{cb}} = $arg{cb}; 948 $PID_CB{$pid}{$arg{cb}} = $arg{cb};
918 949
919 unless ($WNOHANG) { 950 unless ($WNOHANG) {
920 $WNOHANG = eval { require POSIX; &POSIX::WNOHANG } || 1; 951 $WNOHANG = eval { local $SIG{__DIE__}; require POSIX; &POSIX::WNOHANG } || 1;
921 } 952 }
922 953
923 unless ($CHLD_W) { 954 unless ($CHLD_W) {
924 $CHLD_W = AnyEvent->signal (signal => 'CHLD', cb => \&_sigchld); 955 $CHLD_W = AnyEvent->signal (signal => 'CHLD', cb => \&_sigchld);
925 # child could be a zombie already, so make at least one round 956 # child could be a zombie already, so make at least one round

Diff Legend

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