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.290 by root, Tue Sep 1 18:27:46 2009 UTC vs.
Revision 1.309 by root, Sat Dec 26 08:59:35 2009 UTC

363might affect timers and time-outs. 363might affect timers and time-outs.
364 364
365When this is the case, you can call this method, which will update the 365When this is the case, you can call this method, which will update the
366event loop's idea of "current time". 366event loop's idea of "current time".
367 367
368A typical example would be a script in a web server (e.g. C<mod_perl>) -
369when mod_perl executes the script, then the event loop will have the wrong
370idea about the "current time" (being potentially far in the past, when the
371script ran the last time). In that case you should arrange a call to C<<
372AnyEvent->now_update >> each time the web server process wakes up again
373(e.g. at the start of your script, or in a handler).
374
368Note that updating the time I<might> cause some events to be handled. 375Note that updating the time I<might> cause some events to be handled.
369 376
370=back 377=back
371 378
372=head2 SIGNAL WATCHERS 379=head2 SIGNAL WATCHERS
395correctly. 402correctly.
396 403
397Example: exit on SIGINT 404Example: exit on SIGINT
398 405
399 my $w = AnyEvent->signal (signal => "INT", cb => sub { exit 1 }); 406 my $w = AnyEvent->signal (signal => "INT", cb => sub { exit 1 });
407
408=head3 Restart Behaviour
409
410While restart behaviour is up to the event loop implementation, most will
411not restart syscalls (that includes L<Async::Interrupt> and AnyEvent's
412pure perl implementation).
413
414=head3 Safe/Unsafe Signals
415
416Perl signals can be either "safe" (synchronous to opcode handling) or
417"unsafe" (asynchronous) - the former might get delayed indefinitely, the
418latter might corrupt your memory.
419
420AnyEvent signal handlers are, in addition, synchronous to the event loop,
421i.e. they will not interrupt your running perl program but will only be
422called as part of the normal event handling (just like timer, I/O etc.
423callbacks, too).
400 424
401=head3 Signal Races, Delays and Workarounds 425=head3 Signal Races, Delays and Workarounds
402 426
403Many event loops (e.g. Glib, Tk, Qt, IO::Async) do not support attaching 427Many event loops (e.g. Glib, Tk, Qt, IO::Async) do not support attaching
404callbacks to signals in a generic way, which is a pity, as you cannot 428callbacks to signals in a generic way, which is a pity, as you cannot
479 503
480=head2 IDLE WATCHERS 504=head2 IDLE WATCHERS
481 505
482 $w = AnyEvent->idle (cb => <callback>); 506 $w = AnyEvent->idle (cb => <callback>);
483 507
484Sometimes there is a need to do something, but it is not so important 508Repeatedly invoke the callback after the process becomes idle, until
485to do it instantly, but only when there is nothing better to do. This 509either the watcher is destroyed or new events have been detected.
486"nothing better to do" is usually defined to be "no other events need
487attention by the event loop".
488 510
489Idle watchers ideally get invoked when the event loop has nothing 511Idle watchers are useful when there is a need to do something, but it
490better to do, just before it would block the process to wait for new 512is not so important (or wise) to do it instantly. The callback will be
491events. Instead of blocking, the idle watcher is invoked. 513invoked only when there is "nothing better to do", which is usually
514defined as "all outstanding events have been handled and no new events
515have been detected". That means that idle watchers ideally get invoked
516when the event loop has just polled for new events but none have been
517detected. Instead of blocking to wait for more events, the idle watchers
518will be invoked.
492 519
493Most event loops unfortunately do not really support idle watchers (only 520Unfortunately, most event loops do not really support idle watchers (only
494EV, Event and Glib do it in a usable fashion) - for the rest, AnyEvent 521EV, Event and Glib do it in a usable fashion) - for the rest, AnyEvent
495will simply call the callback "from time to time". 522will simply call the callback "from time to time".
496 523
497Example: read lines from STDIN, but only process them when the 524Example: read lines from STDIN, but only process them when the
498program is otherwise idle: 525program is otherwise idle:
942You should check C<$AnyEvent::MODEL> before adding to this array, though: 969You should check C<$AnyEvent::MODEL> before adding to this array, though:
943if it is defined then the event loop has already been detected, and the 970if it is defined then the event loop has already been detected, and the
944array will be ignored. 971array will be ignored.
945 972
946Best use C<AnyEvent::post_detect { BLOCK }> when your application allows 973Best use C<AnyEvent::post_detect { BLOCK }> when your application allows
947it,as it takes care of these details. 974it, as it takes care of these details.
948 975
949This variable is mainly useful for modules that can do something useful 976This variable is mainly useful for modules that can do something useful
950when AnyEvent is used and thus want to know when it is initialised, but do 977when AnyEvent is used and thus want to know when it is initialised, but do
951not need to even load it by default. This array provides the means to hook 978not need to even load it by default. This array provides the means to hook
952into AnyEvent passively, without loading it. 979into AnyEvent passively, without loading it.
980
981Example: To load Coro::AnyEvent whenever Coro and AnyEvent are used
982together, you could put this into Coro (this is the actual code used by
983Coro to accomplish this):
984
985 if (defined $AnyEvent::MODEL) {
986 # AnyEvent already initialised, so load Coro::AnyEvent
987 require Coro::AnyEvent;
988 } else {
989 # AnyEvent not yet initialised, so make sure to load Coro::AnyEvent
990 # as soon as it is
991 push @AnyEvent::post_detect, sub { require Coro::AnyEvent };
992 }
953 993
954=back 994=back
955 995
956=head1 WHAT TO DO IN A MODULE 996=head1 WHAT TO DO IN A MODULE
957 997
1107package AnyEvent; 1147package AnyEvent;
1108 1148
1109# basically a tuned-down version of common::sense 1149# basically a tuned-down version of common::sense
1110sub common_sense { 1150sub common_sense {
1111 # from common:.sense 1.0 1151 # from common:.sense 1.0
1112 ${^WARNING_BITS} = "\xfc\x3f\xf3\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x03"; 1152 ${^WARNING_BITS} = "\xfc\x3f\x33\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x00";
1113 # use strict vars subs 1153 # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl)
1114 $^H |= 0x00000600; 1154 $^H |= 0x00000600;
1115} 1155}
1116 1156
1117BEGIN { AnyEvent::common_sense } 1157BEGIN { AnyEvent::common_sense }
1118 1158
1119use Carp (); 1159use Carp ();
1120 1160
1121our $VERSION = '5.12'; 1161our $VERSION = '5.23';
1122our $MODEL; 1162our $MODEL;
1123 1163
1124our $AUTOLOAD; 1164our $AUTOLOAD;
1125our @ISA; 1165our @ISA;
1126 1166
1127our @REGISTRY; 1167our @REGISTRY;
1128
1129our $WIN32;
1130 1168
1131our $VERBOSE; 1169our $VERBOSE;
1132 1170
1133BEGIN { 1171BEGIN {
1134 eval "sub WIN32(){ " . (($^O =~ /mswin32/i)*1) ." }"; 1172 eval "sub WIN32(){ " . (($^O =~ /mswin32/i)*1) ." }";
1386our ($SIG_COUNT, $SIG_TW); 1424our ($SIG_COUNT, $SIG_TW);
1387 1425
1388sub _signal_exec { 1426sub _signal_exec {
1389 $HAVE_ASYNC_INTERRUPT 1427 $HAVE_ASYNC_INTERRUPT
1390 ? $SIGPIPE_R->drain 1428 ? $SIGPIPE_R->drain
1391 : sysread $SIGPIPE_R, my $dummy, 9; 1429 : sysread $SIGPIPE_R, (my $dummy), 9;
1392 1430
1393 while (%SIG_EV) { 1431 while (%SIG_EV) {
1394 for (keys %SIG_EV) { 1432 for (keys %SIG_EV) {
1395 delete $SIG_EV{$_}; 1433 delete $SIG_EV{$_};
1396 $_->() for values %{ $SIG_CB{$_} || {} }; 1434 $_->() for values %{ $SIG_CB{$_} || {} };
2426it's built-in modules) are required to use it. 2464it's built-in modules) are required to use it.
2427 2465
2428That does not mean that AnyEvent won't take advantage of some additional 2466That does not mean that AnyEvent won't take advantage of some additional
2429modules if they are installed. 2467modules if they are installed.
2430 2468
2431This section epxlains which additional modules will be used, and how they 2469This section explains which additional modules will be used, and how they
2432affect AnyEvent's operetion. 2470affect AnyEvent's operation.
2433 2471
2434=over 4 2472=over 4
2435 2473
2436=item L<Async::Interrupt> 2474=item L<Async::Interrupt>
2437 2475
2442catch the signals) with some delay (default is 10 seconds, look for 2480catch the signals) with some delay (default is 10 seconds, look for
2443C<$AnyEvent::MAX_SIGNAL_LATENCY>). 2481C<$AnyEvent::MAX_SIGNAL_LATENCY>).
2444 2482
2445If this module is available, then it will be used to implement signal 2483If this module is available, then it will be used to implement signal
2446catching, which means that signals will not be delayed, and the event loop 2484catching, which means that signals will not be delayed, and the event loop
2447will not be interrupted regularly, which is more efficient (And good for 2485will not be interrupted regularly, which is more efficient (and good for
2448battery life on laptops). 2486battery life on laptops).
2449 2487
2450This affects not just the pure-perl event loop, but also other event loops 2488This affects not just the pure-perl event loop, but also other event loops
2451that have no signal handling on their own (e.g. Glib, Tk, Qt). 2489that have no signal handling on their own (e.g. Glib, Tk, Qt).
2452 2490
2473lot less memory), but otherwise doesn't affect guard operation much. It is 2511lot less memory), but otherwise doesn't affect guard operation much. It is
2474purely used for performance. 2512purely used for performance.
2475 2513
2476=item L<JSON> and L<JSON::XS> 2514=item L<JSON> and L<JSON::XS>
2477 2515
2478This module is required when you want to read or write JSON data via 2516One of these modules is required when you want to read or write JSON data
2479L<AnyEvent::Handle>. It is also written in pure-perl, but can take 2517via L<AnyEvent::Handle>. It is also written in pure-perl, but can take
2480advantage of the ultra-high-speed L<JSON::XS> module when it is installed. 2518advantage of the ultra-high-speed L<JSON::XS> module when it is installed.
2481 2519
2482In fact, L<AnyEvent::Handle> will use L<JSON::XS> by default if it is 2520In fact, L<AnyEvent::Handle> will use L<JSON::XS> by default if it is
2483installed. 2521installed.
2484 2522
2499 2537
2500 2538
2501=head1 FORK 2539=head1 FORK
2502 2540
2503Most event libraries are not fork-safe. The ones who are usually are 2541Most event libraries are not fork-safe. The ones who are usually are
2504because they rely on inefficient but fork-safe C<select> or C<poll> 2542because they rely on inefficient but fork-safe C<select> or C<poll> calls
2505calls. Only L<EV> is fully fork-aware. 2543- higher performance APIs such as BSD's kqueue or the dreaded Linux epoll
2544are usually badly thought-out hacks that are incompatible with fork in
2545one way or another. Only L<EV> is fully fork-aware and ensures that you
2546continue event-processing in both parent and child (or both, if you know
2547what you are doing).
2548
2549This means that, in general, you cannot fork and do event processing in
2550the child if the event library was initialised before the fork (which
2551usually happens when the first AnyEvent watcher is created, or the library
2552is loaded).
2506 2553
2507If you have to fork, you must either do so I<before> creating your first 2554If you have to fork, you must either do so I<before> creating your first
2508watcher OR you must not use AnyEvent at all in the child OR you must do 2555watcher OR you must not use AnyEvent at all in the child OR you must do
2509something completely out of the scope of AnyEvent. 2556something completely out of the scope of AnyEvent.
2557
2558The problem of doing event processing in the parent I<and> the child
2559is much more complicated: even for backends that I<are> fork-aware or
2560fork-safe, their behaviour is not usually what you want: fork clones all
2561watchers, that means all timers, I/O watchers etc. are active in both
2562parent and child, which is almost never what you want. USing C<exec>
2563to start worker children from some kind of manage rprocess is usually
2564preferred, because it is much easier and cleaner, at the expense of having
2565to have another binary.
2510 2566
2511 2567
2512=head1 SECURITY CONSIDERATIONS 2568=head1 SECURITY CONSIDERATIONS
2513 2569
2514AnyEvent can be forced to load any event model via 2570AnyEvent can be forced to load any event model via

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines