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.135 by root, Sun May 25 04:49:01 2008 UTC vs.
Revision 1.142 by root, Tue May 27 02:34:30 2008 UTC

… …
48isn't itself. What's worse, all the potential users of your module are 48isn't itself. What's worse, all the potential users of your module are
49I<also> forced to use the same event loop you use. 49I<also> forced to use the same event loop you use.
50 50
51AnyEvent is different: AnyEvent + POE works fine. AnyEvent + Glib works 51AnyEvent is different: AnyEvent + POE works fine. AnyEvent + Glib works
52fine. AnyEvent + Tk works fine etc. etc. but none of these work together 52fine. AnyEvent + Tk works fine etc. etc. but none of these work together
53with the rest: POE + IO::Async? no go. Tk + Event? no go. Again: if 53with the rest: POE + IO::Async? No go. Tk + Event? No go. Again: if
54your module uses one of those, every user of your module has to use it, 54your module uses one of those, every user of your module has to use it,
55too. But if your module uses AnyEvent, it works transparently with all 55too. But if your module uses AnyEvent, it works transparently with all
56event models it supports (including stuff like POE and IO::Async, as long 56event models it supports (including stuff like POE and IO::Async, as long
57as those use one of the supported event loops. It is trivial to add new 57as those use one of the supported event loops. It is trivial to add new
58event loops to AnyEvent, too, so it is future-proof). 58event loops to AnyEvent, too, so it is future-proof).
… …
62modules, you get an enormous amount of code and strict rules you have to 62modules, you get an enormous amount of code and strict rules you have to
63follow. AnyEvent, on the other hand, is lean and up to the point, by only 63follow. AnyEvent, on the other hand, is lean and up to the point, by only
64offering the functionality that is necessary, in as thin as a wrapper as 64offering the functionality that is necessary, in as thin as a wrapper as
65technically possible. 65technically possible.
66 66
67Of course, AnyEvent comes with a big (and fully optional!) toolbox
68of useful functionality, such as an asynchronous DNS resolver, 100%
69non-blocking connects (even with TLS/SSL, IPv6 and on broken platforms
70such as Windows) and lots of real-world knowledge and workarounds for
71platform bugs and differences.
72
67Of course, if you want lots of policy (this can arguably be somewhat 73Now, if you I<do want> lots of policy (this can arguably be somewhat
68useful) and you want to force your users to use the one and only event 74useful) and you want to force your users to use the one and only event
69model, you should I<not> use this module. 75model, you should I<not> use this module.
70 76
71=head1 DESCRIPTION 77=head1 DESCRIPTION
72 78
… …
102starts using it, all bets are off. Maybe you should tell their authors to 108starts using it, all bets are off. Maybe you should tell their authors to
103use AnyEvent so their modules work together with others seamlessly... 109use AnyEvent so their modules work together with others seamlessly...
104 110
105The pure-perl implementation of AnyEvent is called 111The pure-perl implementation of AnyEvent is called
106C<AnyEvent::Impl::Perl>. Like other event modules you can load it 112C<AnyEvent::Impl::Perl>. Like other event modules you can load it
107explicitly. 113explicitly and enjoy the high availability of that event loop :)
108 114
109=head1 WATCHERS 115=head1 WATCHERS
110 116
111AnyEvent has the central concept of a I<watcher>, which is an object that 117AnyEvent has the central concept of a I<watcher>, which is an object that
112stores relevant data for each kind of event you are waiting for, such as 118stores relevant data for each kind of event you are waiting for, such as
… …
731no warnings; 737no warnings;
732use strict; 738use strict;
733 739
734use Carp; 740use Carp;
735 741
736our $VERSION = '4.03'; 742our $VERSION = '4.05';
737our $MODEL; 743our $MODEL;
738 744
739our $AUTOLOAD; 745our $AUTOLOAD;
740our @ISA; 746our @ISA;
741 747
742our @REGISTRY; 748our @REGISTRY;
743 749
750our $WIN32;
751
752BEGIN {
753 my $win32 = ! ! ($^O =~ /mswin32/i);
754 eval "sub WIN32(){ $win32 }";
755}
756
744our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1; 757our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1;
745 758
746our %PROTOCOL; # (ipv4|ipv6) => (1|2) 759our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred
747 760
748{ 761{
749 my $idx; 762 my $idx;
750 $PROTOCOL{$_} = ++$idx 763 $PROTOCOL{$_} = ++$idx
764 for reverse split /\s*,\s*/,
751 for split /\s*,\s*/, $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6"; 765 $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6";
752} 766}
753 767
754my @models = ( 768my @models = (
755 [EV:: => AnyEvent::Impl::EV::], 769 [EV:: => AnyEvent::Impl::EV::],
756 [Event:: => AnyEvent::Impl::Event::], 770 [Event:: => AnyEvent::Impl::Event::],
… …
792} 806}
793 807
794sub detect() { 808sub detect() {
795 unless ($MODEL) { 809 unless ($MODEL) {
796 no strict 'refs'; 810 no strict 'refs';
811 local $SIG{__DIE__};
797 812
798 if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) { 813 if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) {
799 my $model = "AnyEvent::Impl::$1"; 814 my $model = "AnyEvent::Impl::$1";
800 if (eval "require $model") { 815 if (eval "require $model") {
801 $MODEL = $model; 816 $MODEL = $model;
… …
924 or Carp::croak "required option 'pid' is missing"; 939 or Carp::croak "required option 'pid' is missing";
925 940
926 $PID_CB{$pid}{$arg{cb}} = $arg{cb}; 941 $PID_CB{$pid}{$arg{cb}} = $arg{cb};
927 942
928 unless ($WNOHANG) { 943 unless ($WNOHANG) {
929 $WNOHANG = eval { require POSIX; &POSIX::WNOHANG } || 1; 944 $WNOHANG = eval { local $SIG{__DIE__}; require POSIX; &POSIX::WNOHANG } || 1;
930 } 945 }
931 946
932 unless ($CHLD_W) { 947 unless ($CHLD_W) {
933 $CHLD_W = AnyEvent->signal (signal => 'CHLD', cb => \&_sigchld); 948 $CHLD_W = AnyEvent->signal (signal => 'CHLD', cb => \&_sigchld);
934 # child could be a zombie already, so make at least one round 949 # child could be a zombie already, so make at least one round
… …
1113some (broken) firewalls drop such DNS packets, which is why it is off by 1128some (broken) firewalls drop such DNS packets, which is why it is off by
1114default. 1129default.
1115 1130
1116Setting this variable to C<1> will cause L<AnyEvent::DNS> to announce 1131Setting this variable to C<1> will cause L<AnyEvent::DNS> to announce
1117EDNS0 in its DNS requests. 1132EDNS0 in its DNS requests.
1133
1134=item C<PERL_ANYEVENT_MAX_FORKS>
1135
1136The maximum number of child processes that C<AnyEvent::Util::fork_call>
1137will create in parallel.
1118 1138
1119=back 1139=back
1120 1140
1121=head1 EXAMPLE PROGRAM 1141=head1 EXAMPLE PROGRAM
1122 1142

Diff Legend

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