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.148 by root, Sat May 31 00:40:16 2008 UTC vs.
Revision 1.175 by root, Sun Jul 27 08:43:32 2008 UTC

1=head1 => NAME 1=head1 NAME
2 2
3AnyEvent - provide framework for multiple event loops 3AnyEvent - provide framework for multiple event loops
4 4
5EV, Event, Glib, Tk, Perl, Event::Lib, Qt, POE - various supported event loops 5EV, Event, Glib, Tk, Perl, Event::Lib, Qt, POE - various supported event loops
6 6
7=head1 SYNOPSIS 7=head1 SYNOPSIS
8 8
9 use AnyEvent; 9 use AnyEvent;
10 10
11 my $w = AnyEvent->io (fh => $fh, poll => "r|w", cb => sub { 11 my $w = AnyEvent->io (fh => $fh, poll => "r|w", cb => sub { ... });
12 ...
13 });
14 12
15 my $w = AnyEvent->timer (after => $seconds, cb => sub { 13 my $w = AnyEvent->timer (after => $seconds, cb => sub { ... });
14 my $w = AnyEvent->timer (after => $seconds, interval => $seconds, cb => ...
15
16 print AnyEvent->now; # prints current event loop time
17 print AnyEvent->time; # think Time::HiRes::time or simply CORE::time.
18
19 my $w = AnyEvent->signal (signal => "TERM", cb => sub { ... });
20
21 my $w = AnyEvent->child (pid => $pid, cb => sub {
22 my ($pid, $status) = @_;
16 ... 23 ...
17 }); 24 });
18 25
19 my $w = AnyEvent->condvar; # stores whether a condition was flagged 26 my $w = AnyEvent->condvar; # stores whether a condition was flagged
20 $w->send; # wake up current and all future recv's 27 $w->send; # wake up current and all future recv's
21 $w->recv; # enters "main loop" till $condvar gets ->send 28 $w->recv; # enters "main loop" till $condvar gets ->send
29 # use a condvar in callback mode:
30 $w->cb (sub { $_[0]->recv });
22 31
23=head1 INTRODUCTION/TUTORIAL 32=head1 INTRODUCTION/TUTORIAL
24 33
25This manpage is mainly a reference manual. If you are interested 34This manpage is mainly a reference manual. If you are interested
26in a tutorial or some gentle introduction, have a look at the 35in a tutorial or some gentle introduction, have a look at the
33 42
34Executive Summary: AnyEvent is I<compatible>, AnyEvent is I<free of 43Executive Summary: AnyEvent is I<compatible>, AnyEvent is I<free of
35policy> and AnyEvent is I<small and efficient>. 44policy> and AnyEvent is I<small and efficient>.
36 45
37First and foremost, I<AnyEvent is not an event model> itself, it only 46First and foremost, I<AnyEvent is not an event model> itself, it only
38interfaces to whatever event model the main program happens to use in a 47interfaces to whatever event model the main program happens to use, in a
39pragmatic way. For event models and certain classes of immortals alike, 48pragmatic way. For event models and certain classes of immortals alike,
40the statement "there can only be one" is a bitter reality: In general, 49the statement "there can only be one" is a bitter reality: In general,
41only one event loop can be active at the same time in a process. AnyEvent 50only one event loop can be active at the same time in a process. AnyEvent
42helps hiding the differences between those event loops. 51cannot change this, but it can hide the differences between those event
52loops.
43 53
44The goal of AnyEvent is to offer module authors the ability to do event 54The goal of AnyEvent is to offer module authors the ability to do event
45programming (waiting for I/O or timer events) without subscribing to a 55programming (waiting for I/O or timer events) without subscribing to a
46religion, a way of living, and most importantly: without forcing your 56religion, a way of living, and most importantly: without forcing your
47module users into the same thing by forcing them to use the same event 57module users into the same thing by forcing them to use the same event
48model you use. 58model you use.
49 59
50For modules like POE or IO::Async (which is a total misnomer as it is 60For modules like POE or IO::Async (which is a total misnomer as it is
51actually doing all I/O I<synchronously>...), using them in your module is 61actually doing all I/O I<synchronously>...), using them in your module is
52like joining a cult: After you joined, you are dependent on them and you 62like joining a cult: After you joined, you are dependent on them and you
53cannot use anything else, as it is simply incompatible to everything that 63cannot use anything else, as they are simply incompatible to everything
54isn't itself. What's worse, all the potential users of your module are 64that isn't them. What's worse, all the potential users of your
55I<also> forced to use the same event loop you use. 65module are I<also> forced to use the same event loop you use.
56 66
57AnyEvent is different: AnyEvent + POE works fine. AnyEvent + Glib works 67AnyEvent is different: AnyEvent + POE works fine. AnyEvent + Glib works
58fine. AnyEvent + Tk works fine etc. etc. but none of these work together 68fine. AnyEvent + Tk works fine etc. etc. but none of these work together
59with the rest: POE + IO::Async? No go. Tk + Event? No go. Again: if 69with the rest: POE + IO::Async? No go. Tk + Event? No go. Again: if
60your module uses one of those, every user of your module has to use it, 70your module uses one of those, every user of your module has to use it,
61too. But if your module uses AnyEvent, it works transparently with all 71too. But if your module uses AnyEvent, it works transparently with all
62event models it supports (including stuff like POE and IO::Async, as long 72event models it supports (including stuff like IO::Async, as long as those
63as those use one of the supported event loops. It is trivial to add new 73use one of the supported event loops. It is trivial to add new event loops
64event loops to AnyEvent, too, so it is future-proof). 74to AnyEvent, too, so it is future-proof).
65 75
66In addition to being free of having to use I<the one and only true event 76In addition to being free of having to use I<the one and only true event
67model>, AnyEvent also is free of bloat and policy: with POE or similar 77model>, AnyEvent also is free of bloat and policy: with POE or similar
68modules, you get an enormous amount of code and strict rules you have to 78modules, you get an enormous amount of code and strict rules you have to
69follow. AnyEvent, on the other hand, is lean and up to the point, by only 79follow. AnyEvent, on the other hand, is lean and up to the point, by only
138Many watchers either are used with "recursion" (repeating timers for 148Many watchers either are used with "recursion" (repeating timers for
139example), or need to refer to their watcher object in other ways. 149example), or need to refer to their watcher object in other ways.
140 150
141An any way to achieve that is this pattern: 151An any way to achieve that is this pattern:
142 152
143 my $w; $w = AnyEvent->type (arg => value ..., cb => sub { 153 my $w; $w = AnyEvent->type (arg => value ..., cb => sub {
144 # you can use $w here, for example to undef it 154 # you can use $w here, for example to undef it
145 undef $w; 155 undef $w;
146 }); 156 });
147 157
148Note that C<my $w; $w => combination. This is necessary because in Perl, 158Note that C<my $w; $w => combination. This is necessary because in Perl,
149my variables are only visible after the statement in which they are 159my variables are only visible after the statement in which they are
150declared. 160declared.
151 161
152=head2 I/O WATCHERS 162=head2 I/O WATCHERS
153 163
154You can create an I/O watcher by calling the C<< AnyEvent->io >> method 164You can create an I/O watcher by calling the C<< AnyEvent->io >> method
155with the following mandatory key-value pairs as arguments: 165with the following mandatory key-value pairs as arguments:
156 166
157C<fh> the Perl I<file handle> (I<not> file descriptor) to watch 167C<fh> the Perl I<file handle> (I<not> file descriptor) to watch for events
158for events. C<poll> must be a string that is either C<r> or C<w>, 168(AnyEvent might or might not keep a reference to this file handle). C<poll>
159which creates a watcher waiting for "r"eadable or "w"ritable events, 169must be a string that is either C<r> or C<w>, which creates a watcher
160respectively. C<cb> is the callback to invoke each time the file handle 170waiting for "r"eadable or "w"ritable events, respectively. C<cb> is the
161becomes ready. 171callback to invoke each time the file handle becomes ready.
162 172
163Although the callback might get passed parameters, their value and 173Although the callback might get passed parameters, their value and
164presence is undefined and you cannot rely on them. Portable AnyEvent 174presence is undefined and you cannot rely on them. Portable AnyEvent
165callbacks cannot use arguments passed to I/O watcher callbacks. 175callbacks cannot use arguments passed to I/O watcher callbacks.
166 176
170 180
171Some event loops issue spurious readyness notifications, so you should 181Some event loops issue spurious readyness notifications, so you should
172always use non-blocking calls when reading/writing from/to your file 182always use non-blocking calls when reading/writing from/to your file
173handles. 183handles.
174 184
175Example:
176
177 # wait for readability of STDIN, then read a line and disable the watcher 185Example: wait for readability of STDIN, then read a line and disable the
186watcher.
187
178 my $w; $w = AnyEvent->io (fh => \*STDIN, poll => 'r', cb => sub { 188 my $w; $w = AnyEvent->io (fh => \*STDIN, poll => 'r', cb => sub {
179 chomp (my $input = <STDIN>); 189 chomp (my $input = <STDIN>);
180 warn "read: $input\n"; 190 warn "read: $input\n";
181 undef $w; 191 undef $w;
182 }); 192 });
192 202
193Although the callback might get passed parameters, their value and 203Although the callback might get passed parameters, their value and
194presence is undefined and you cannot rely on them. Portable AnyEvent 204presence is undefined and you cannot rely on them. Portable AnyEvent
195callbacks cannot use arguments passed to time watcher callbacks. 205callbacks cannot use arguments passed to time watcher callbacks.
196 206
197The timer callback will be invoked at most once: if you want a repeating 207The callback will normally be invoked once only. If you specify another
198timer you have to create a new watcher (this is a limitation by both Tk 208parameter, C<interval>, as a strictly positive number (> 0), then the
199and Glib). 209callback will be invoked regularly at that interval (in fractional
210seconds) after the first invocation. If C<interval> is specified with a
211false value, then it is treated as if it were missing.
200 212
201Example: 213The callback will be rescheduled before invoking the callback, but no
214attempt is done to avoid timer drift in most backends, so the interval is
215only approximate.
202 216
203 # fire an event after 7.7 seconds 217Example: fire an event after 7.7 seconds.
218
204 my $w = AnyEvent->timer (after => 7.7, cb => sub { 219 my $w = AnyEvent->timer (after => 7.7, cb => sub {
205 warn "timeout\n"; 220 warn "timeout\n";
206 }); 221 });
207 222
208 # to cancel the timer: 223 # to cancel the timer:
209 undef $w; 224 undef $w;
210 225
211Example 2:
212
213 # fire an event after 0.5 seconds, then roughly every second 226Example 2: fire an event after 0.5 seconds, then roughly every second.
214 my $w;
215 227
216 my $cb = sub {
217 # cancel the old timer while creating a new one
218 $w = AnyEvent->timer (after => 1, cb => $cb); 228 my $w = AnyEvent->timer (after => 0.5, interval => 1, cb => sub {
229 warn "timeout\n";
219 }; 230 };
220
221 # start the "loop" by creating the first watcher
222 $w = AnyEvent->timer (after => 0.5, cb => $cb);
223 231
224=head3 TIMING ISSUES 232=head3 TIMING ISSUES
225 233
226There are two ways to handle timers: based on real time (relative, "fire 234There are two ways to handle timers: based on real time (relative, "fire
227in 10 seconds") and based on wallclock time (absolute, "fire at 12 235in 10 seconds") and based on wallclock time (absolute, "fire at 12
305=back 313=back
306 314
307=head2 SIGNAL WATCHERS 315=head2 SIGNAL WATCHERS
308 316
309You can watch for signals using a signal watcher, C<signal> is the signal 317You can watch for signals using a signal watcher, C<signal> is the signal
310I<name> without any C<SIG> prefix, C<cb> is the Perl callback to 318I<name> in uppercase and without any C<SIG> prefix, C<cb> is the Perl
311be invoked whenever a signal occurs. 319callback to be invoked whenever a signal occurs.
312 320
313Although the callback might get passed parameters, their value and 321Although the callback might get passed parameters, their value and
314presence is undefined and you cannot rely on them. Portable AnyEvent 322presence is undefined and you cannot rely on them. Portable AnyEvent
315callbacks cannot use arguments passed to signal watcher callbacks. 323callbacks cannot use arguments passed to signal watcher callbacks.
316 324
352AnyEvent program, you I<have> to create at least one watcher before you 360AnyEvent program, you I<have> to create at least one watcher before you
353C<fork> the child (alternatively, you can call C<AnyEvent::detect>). 361C<fork> the child (alternatively, you can call C<AnyEvent::detect>).
354 362
355Example: fork a process and wait for it 363Example: fork a process and wait for it
356 364
357 my $done = AnyEvent->condvar; 365 my $done = AnyEvent->condvar;
358 366
359 my $pid = fork or exit 5; 367 my $pid = fork or exit 5;
360 368
361 my $w = AnyEvent->child ( 369 my $w = AnyEvent->child (
362 pid => $pid, 370 pid => $pid,
363 cb => sub { 371 cb => sub {
364 my ($pid, $status) = @_; 372 my ($pid, $status) = @_;
365 warn "pid $pid exited with status $status"; 373 warn "pid $pid exited with status $status";
366 $done->send; 374 $done->send;
367 }, 375 },
368 ); 376 );
369 377
370 # do something else, then wait for process exit 378 # do something else, then wait for process exit
371 $done->recv; 379 $done->recv;
372 380
373=head2 CONDITION VARIABLES 381=head2 CONDITION VARIABLES
374 382
375If you are familiar with some event loops you will know that all of them 383If you are familiar with some event loops you will know that all of them
376require you to run some blocking "loop", "run" or similar function that 384require you to run some blocking "loop", "run" or similar function that
382The instrument to do that is called a "condition variable", so called 390The instrument to do that is called a "condition variable", so called
383because they represent a condition that must become true. 391because they represent a condition that must become true.
384 392
385Condition variables can be created by calling the C<< AnyEvent->condvar 393Condition variables can be created by calling the C<< AnyEvent->condvar
386>> method, usually without arguments. The only argument pair allowed is 394>> method, usually without arguments. The only argument pair allowed is
395
387C<cb>, which specifies a callback to be called when the condition variable 396C<cb>, which specifies a callback to be called when the condition variable
388becomes true. 397becomes true, with the condition variable as the first argument (but not
398the results).
389 399
390After creation, the condition variable is "false" until it becomes "true" 400After creation, the condition variable is "false" until it becomes "true"
391by calling the C<send> method (or calling the condition variable as if it 401by calling the C<send> method (or calling the condition variable as if it
392were a callback, read about the caveats in the description for the C<< 402were a callback, read about the caveats in the description for the C<<
393->send >> method). 403->send >> method).
449 459
450 my $done = AnyEvent->condvar; 460 my $done = AnyEvent->condvar;
451 my $delay = AnyEvent->timer (after => 5, cb => $done); 461 my $delay = AnyEvent->timer (after => 5, cb => $done);
452 $done->recv; 462 $done->recv;
453 463
464Example: Imagine an API that returns a condvar and doesn't support
465callbacks. This is how you make a synchronous call, for example from
466the main program:
467
468 use AnyEvent::CouchDB;
469
470 ...
471
472 my @info = $couchdb->info->recv;
473
474And this is how you would just ste a callback to be called whenever the
475results are available:
476
477 $couchdb->info->cb (sub {
478 my @info = $_[0]->recv;
479 });
480
454=head3 METHODS FOR PRODUCERS 481=head3 METHODS FOR PRODUCERS
455 482
456These methods should only be used by the producing side, i.e. the 483These methods should only be used by the producing side, i.e. the
457code/module that eventually sends the signal. Note that it is also 484code/module that eventually sends the signal. Note that it is also
458the producer side which creates the condvar in most cases, but it isn't 485the producer side which creates the condvar in most cases, but it isn't
591=item $bool = $cv->ready 618=item $bool = $cv->ready
592 619
593Returns true when the condition is "true", i.e. whether C<send> or 620Returns true when the condition is "true", i.e. whether C<send> or
594C<croak> have been called. 621C<croak> have been called.
595 622
596=item $cb = $cv->cb ([new callback]) 623=item $cb = $cv->cb ($cb->($cv))
597 624
598This is a mutator function that returns the callback set and optionally 625This is a mutator function that returns the callback set and optionally
599replaces it before doing so. 626replaces it before doing so.
600 627
601The callback will be called when the condition becomes "true", i.e. when 628The callback will be called when the condition becomes "true", i.e. when
602C<send> or C<croak> are called. Calling C<recv> inside the callback 629C<send> or C<croak> are called, with the only argument being the condition
603or at any later time is guaranteed not to block. 630variable itself. Calling C<recv> inside the callback or at any later time
631is guaranteed not to block.
604 632
605=back 633=back
606 634
607=head1 GLOBAL VARIABLES AND FUNCTIONS 635=head1 GLOBAL VARIABLES AND FUNCTIONS
608 636
737=item L<AnyEvent::Util> 765=item L<AnyEvent::Util>
738 766
739Contains various utility functions that replace often-used but blocking 767Contains various utility functions that replace often-used but blocking
740functions such as C<inet_aton> by event-/callback-based versions. 768functions such as C<inet_aton> by event-/callback-based versions.
741 769
742=item L<AnyEvent::Handle>
743
744Provide read and write buffers and manages watchers for reads and writes.
745
746=item L<AnyEvent::Socket> 770=item L<AnyEvent::Socket>
747 771
748Provides various utility functions for (internet protocol) sockets, 772Provides various utility functions for (internet protocol) sockets,
749addresses and name resolution. Also functions to create non-blocking tcp 773addresses and name resolution. Also functions to create non-blocking tcp
750connections or tcp servers, with IPv6 and SRV record support and more. 774connections or tcp servers, with IPv6 and SRV record support and more.
751 775
776=item L<AnyEvent::Handle>
777
778Provide read and write buffers, manages watchers for reads and writes,
779supports raw and formatted I/O, I/O queued and fully transparent and
780non-blocking SSL/TLS.
781
752=item L<AnyEvent::DNS> 782=item L<AnyEvent::DNS>
753 783
754Provides rich asynchronous DNS resolver capabilities. 784Provides rich asynchronous DNS resolver capabilities.
755 785
786=item L<AnyEvent::HTTP>
787
788A simple-to-use HTTP library that is capable of making a lot of concurrent
789HTTP requests.
790
756=item L<AnyEvent::HTTPD> 791=item L<AnyEvent::HTTPD>
757 792
758Provides a simple web application server framework. 793Provides a simple web application server framework.
759 794
760=item L<AnyEvent::FastPing> 795=item L<AnyEvent::FastPing>
761 796
762The fastest ping in the west. 797The fastest ping in the west.
798
799=item L<AnyEvent::DBI>
800
801Executes L<DBI> requests asynchronously in a proxy process.
802
803=item L<AnyEvent::AIO>
804
805Truly asynchronous I/O, should be in the toolbox of every event
806programmer. AnyEvent::AIO transparently fuses L<IO::AIO> and AnyEvent
807together.
808
809=item L<AnyEvent::BDB>
810
811Truly asynchronous Berkeley DB access. AnyEvent::BDB transparently fuses
812L<BDB> and AnyEvent together.
813
814=item L<AnyEvent::GPSD>
815
816A non-blocking interface to gpsd, a daemon delivering GPS information.
817
818=item L<AnyEvent::IGS>
819
820A non-blocking interface to the Internet Go Server protocol (used by
821L<App::IGS>).
763 822
764=item L<Net::IRC3> 823=item L<Net::IRC3>
765 824
766AnyEvent based IRC client module family. 825AnyEvent based IRC client module family.
767 826
780 839
781=item L<Coro> 840=item L<Coro>
782 841
783Has special support for AnyEvent via L<Coro::AnyEvent>. 842Has special support for AnyEvent via L<Coro::AnyEvent>.
784 843
785=item L<AnyEvent::AIO>, L<IO::AIO>
786
787Truly asynchronous I/O, should be in the toolbox of every event
788programmer. AnyEvent::AIO transparently fuses IO::AIO and AnyEvent
789together.
790
791=item L<AnyEvent::BDB>, L<BDB>
792
793Truly asynchronous Berkeley DB access. AnyEvent::AIO transparently fuses
794IO::AIO and AnyEvent together.
795
796=item L<IO::Lambda> 844=item L<IO::Lambda>
797 845
798The lambda approach to I/O - don't ask, look there. Can use AnyEvent. 846The lambda approach to I/O - don't ask, look there. Can use AnyEvent.
799 847
800=back 848=back
806no warnings; 854no warnings;
807use strict; 855use strict;
808 856
809use Carp; 857use Carp;
810 858
811our $VERSION = 4.11; 859our $VERSION = 4.23;
812our $MODEL; 860our $MODEL;
813 861
814our $AUTOLOAD; 862our $AUTOLOAD;
815our @ISA; 863our @ISA;
816 864
919 $MODEL 967 $MODEL
920 or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: EV, Event or Glib."; 968 or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: EV, Event or Glib.";
921 } 969 }
922 } 970 }
923 971
972 push @{"$MODEL\::ISA"}, "AnyEvent::Base";
973
924 unshift @ISA, $MODEL; 974 unshift @ISA, $MODEL;
925 push @{"$MODEL\::ISA"}, "AnyEvent::Base"; 975
976 require AnyEvent::Strict if $ENV{PERL_ANYEVENT_STRICT};
926 977
927 (shift @post_detect)->() while @post_detect; 978 (shift @post_detect)->() while @post_detect;
928 } 979 }
929 980
930 $MODEL 981 $MODEL
938 989
939 detect unless $MODEL; 990 detect unless $MODEL;
940 991
941 my $class = shift; 992 my $class = shift;
942 $class->$func (@_); 993 $class->$func (@_);
994}
995
996# utility function to dup a filehandle. this is used by many backends
997# to support binding more than one watcher per filehandle (they usually
998# allow only one watcher per fd, so we dup it to get a different one).
999sub _dupfh($$$$) {
1000 my ($poll, $fh, $r, $w) = @_;
1001
1002 require Fcntl;
1003
1004 # cygwin requires the fh mode to be matching, unix doesn't
1005 my ($rw, $mode) = $poll eq "r" ? ($r, "<")
1006 : $poll eq "w" ? ($w, ">")
1007 : Carp::croak "AnyEvent->io requires poll set to either 'r' or 'w'";
1008
1009 open my $fh2, "$mode&" . fileno $fh
1010 or die "cannot dup() filehandle: $!";
1011
1012 # we assume CLOEXEC is already set by perl in all important cases
1013
1014 ($fh2, $rw)
943} 1015}
944 1016
945package AnyEvent::Base; 1017package AnyEvent::Base;
946 1018
947# default implementation for now and time 1019# default implementation for now and time
978sub AnyEvent::Base::Signal::DESTROY { 1050sub AnyEvent::Base::Signal::DESTROY {
979 my ($signal, $cb) = @{$_[0]}; 1051 my ($signal, $cb) = @{$_[0]};
980 1052
981 delete $SIG_CB{$signal}{$cb}; 1053 delete $SIG_CB{$signal}{$cb};
982 1054
983 $SIG{$signal} = 'DEFAULT' unless keys %{ $SIG_CB{$signal} }; 1055 delete $SIG{$signal} unless keys %{ $SIG_CB{$signal} };
984} 1056}
985 1057
986# default implementation for ->child 1058# default implementation for ->child
987 1059
988our %PID_CB; 1060our %PID_CB;
1158C<PERL_ANYEVENT_MODEL>. 1230C<PERL_ANYEVENT_MODEL>.
1159 1231
1160When set to C<2> or higher, cause AnyEvent to report to STDERR which event 1232When set to C<2> or higher, cause AnyEvent to report to STDERR which event
1161model it chooses. 1233model it chooses.
1162 1234
1235=item C<PERL_ANYEVENT_STRICT>
1236
1237AnyEvent does not do much argument checking by default, as thorough
1238argument checking is very costly. Setting this variable to a true value
1239will cause AnyEvent to load C<AnyEvent::Strict> and then to thoroughly
1240check the arguments passed to most method calls. If it finds any problems
1241it will croak.
1242
1243In other words, enables "strict" mode.
1244
1245Unlike C<use strict> it is definitely recommended ot keep it off in
1246production.
1247
1163=item C<PERL_ANYEVENT_MODEL> 1248=item C<PERL_ANYEVENT_MODEL>
1164 1249
1165This can be used to specify the event model to be used by AnyEvent, before 1250This can be used to specify the event model to be used by AnyEvent, before
1166auto detection and -probing kicks in. It must be a string consisting 1251auto detection and -probing kicks in. It must be a string consisting
1167entirely of ASCII letters. The string C<AnyEvent::Impl::> gets prepended 1252entirely of ASCII letters. The string C<AnyEvent::Impl::> gets prepended
1172This functionality might change in future versions. 1257This functionality might change in future versions.
1173 1258
1174For example, to force the pure perl model (L<AnyEvent::Impl::Perl>) you 1259For example, to force the pure perl model (L<AnyEvent::Impl::Perl>) you
1175could start your program like this: 1260could start your program like this:
1176 1261
1177 PERL_ANYEVENT_MODEL=Perl perl ... 1262 PERL_ANYEVENT_MODEL=Perl perl ...
1178 1263
1179=item C<PERL_ANYEVENT_PROTOCOLS> 1264=item C<PERL_ANYEVENT_PROTOCOLS>
1180 1265
1181Used by both L<AnyEvent::DNS> and L<AnyEvent::Socket> to determine preferences 1266Used by both L<AnyEvent::DNS> and L<AnyEvent::Socket> to determine preferences
1182for IPv4 or IPv6. The default is unspecified (and might change, or be the result 1267for IPv4 or IPv6. The default is unspecified (and might change, or be the result
1657specified in the variable. 1742specified in the variable.
1658 1743
1659You can make AnyEvent completely ignore this variable by deleting it 1744You can make AnyEvent completely ignore this variable by deleting it
1660before the first watcher gets created, e.g. with a C<BEGIN> block: 1745before the first watcher gets created, e.g. with a C<BEGIN> block:
1661 1746
1662 BEGIN { delete $ENV{PERL_ANYEVENT_MODEL} } 1747 BEGIN { delete $ENV{PERL_ANYEVENT_MODEL} }
1663 1748
1664 use AnyEvent; 1749 use AnyEvent;
1665 1750
1666Similar considerations apply to $ENV{PERL_ANYEVENT_VERBOSE}, as that can 1751Similar considerations apply to $ENV{PERL_ANYEVENT_VERBOSE}, as that can
1667be used to probe what backend is used and gain other information (which is 1752be used to probe what backend is used and gain other information (which is
1668probably even less useful to an attacker than PERL_ANYEVENT_MODEL). 1753probably even less useful to an attacker than PERL_ANYEVENT_MODEL), and
1754$ENV{PERL_ANYEGENT_STRICT}.
1755
1756
1757=head1 BUGS
1758
1759Perl 5.8 has numerous memleaks that sometimes hit this module and are hard
1760to work around. If you suffer from memleaks, first upgrade to Perl 5.10
1761and check wether the leaks still show up. (Perl 5.10.0 has other annoying
1762mamleaks, such as leaking on C<map> and C<grep> but it is usually not as
1763pronounced).
1669 1764
1670 1765
1671=head1 SEE ALSO 1766=head1 SEE ALSO
1672 1767
1673Utility functions: L<AnyEvent::Util>. 1768Utility functions: L<AnyEvent::Util>.
1690Nontrivial usage examples: L<Net::FCP>, L<Net::XMPP2>, L<AnyEvent::DNS>. 1785Nontrivial usage examples: L<Net::FCP>, L<Net::XMPP2>, L<AnyEvent::DNS>.
1691 1786
1692 1787
1693=head1 AUTHOR 1788=head1 AUTHOR
1694 1789
1695 Marc Lehmann <schmorp@schmorp.de> 1790 Marc Lehmann <schmorp@schmorp.de>
1696 http://home.schmorp.de/ 1791 http://home.schmorp.de/
1697 1792
1698=cut 1793=cut
1699 1794
17001 17951
1701 1796

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines