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.298 by root, Tue Nov 24 05:48:06 2009 UTC vs.
Revision 1.311 by root, Wed Feb 10 13:33:44 2010 UTC

503 503
504=head2 IDLE WATCHERS 504=head2 IDLE WATCHERS
505 505
506 $w = AnyEvent->idle (cb => <callback>); 506 $w = AnyEvent->idle (cb => <callback>);
507 507
508Sometimes there is a need to do something, but it is not so important 508Repeatedly invoke the callback after the process becomes idle, until
509to do it instantly, but only when there is nothing better to do. This 509either the watcher is destroyed or new events have been detected.
510"nothing better to do" is usually defined to be "no other events need
511attention by the event loop".
512 510
513Idle watchers ideally get invoked when the event loop has nothing 511Idle watchers are useful when there is a need to do something, but it
514better 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
515events. 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.
516 519
517Most event loops unfortunately do not really support idle watchers (only 520Unfortunately, most event loops do not really support idle watchers (only
518EV, 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
519will simply call the callback "from time to time". 522will simply call the callback "from time to time".
520 523
521Example: read lines from STDIN, but only process them when the 524Example: read lines from STDIN, but only process them when the
522program is otherwise idle: 525program is otherwise idle:
966You should check C<$AnyEvent::MODEL> before adding to this array, though: 969You should check C<$AnyEvent::MODEL> before adding to this array, though:
967if 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
968array will be ignored. 971array will be ignored.
969 972
970Best use C<AnyEvent::post_detect { BLOCK }> when your application allows 973Best use C<AnyEvent::post_detect { BLOCK }> when your application allows
971it,as it takes care of these details. 974it, as it takes care of these details.
972 975
973This variable is mainly useful for modules that can do something useful 976This variable is mainly useful for modules that can do something useful
974when 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
975not 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
976into 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 }
977 993
978=back 994=back
979 995
980=head1 WHAT TO DO IN A MODULE 996=head1 WHAT TO DO IN A MODULE
981 997
1131package AnyEvent; 1147package AnyEvent;
1132 1148
1133# basically a tuned-down version of common::sense 1149# basically a tuned-down version of common::sense
1134sub common_sense { 1150sub common_sense {
1135 # from common:.sense 1.0 1151 # from common:.sense 1.0
1136 ${^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";
1137 # use strict vars subs 1153 # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl)
1138 $^H |= 0x00000600; 1154 $^H |= 0x00000600;
1139} 1155}
1140 1156
1141BEGIN { AnyEvent::common_sense } 1157BEGIN { AnyEvent::common_sense }
1142 1158
1143use Carp (); 1159use Carp ();
1144 1160
1145our $VERSION = '5.21'; 1161our $VERSION = '5.24';
1146our $MODEL; 1162our $MODEL;
1147 1163
1148our $AUTOLOAD; 1164our $AUTOLOAD;
1149our @ISA; 1165our @ISA;
1150 1166
1151our @REGISTRY; 1167our @REGISTRY;
1152 1168
1153our $VERBOSE; 1169our $VERBOSE;
1154 1170
1155BEGIN { 1171BEGIN {
1172 eval "sub CYGWIN(){" . (($^O =~ /cygwin/i) *1) . "}";
1156 eval "sub WIN32(){ " . (($^O =~ /mswin32/i)*1) ." }"; 1173 eval "sub WIN32 (){" . (($^O =~ /mswin32/i)*1) . "}";
1157 eval "sub TAINT(){ " . (${^TAINT}*1) . " }"; 1174 eval "sub TAINT (){" . (${^TAINT} *1) . "}";
1158 1175
1159 delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} 1176 delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV}
1160 if ${^TAINT}; 1177 if ${^TAINT};
1161 1178
1162 $VERBOSE = $ENV{PERL_ANYEVENT_VERBOSE}*1; 1179 $VERBOSE = $ENV{PERL_ANYEVENT_VERBOSE}*1;
1373 warn "AnyEvent: using Time::HiRes for sub-second timing accuracy.\n" if $VERBOSE >= 8; 1390 warn "AnyEvent: using Time::HiRes for sub-second timing accuracy.\n" if $VERBOSE >= 8;
1374 *_time = \&Time::HiRes::time; 1391 *_time = \&Time::HiRes::time;
1375 # if (eval "use POSIX (); (POSIX::times())... 1392 # if (eval "use POSIX (); (POSIX::times())...
1376 } else { 1393 } else {
1377 warn "AnyEvent: using built-in time(), WARNING, no sub-second resolution!\n" if $VERBOSE; 1394 warn "AnyEvent: using built-in time(), WARNING, no sub-second resolution!\n" if $VERBOSE;
1378 *_time = sub { time }; # epic fail 1395 *_time = sub (){ time }; # epic fail
1379 } 1396 }
1380 1397
1381 &_time 1398 &_time
1382} 1399}
1383 1400
2448it's built-in modules) are required to use it. 2465it's built-in modules) are required to use it.
2449 2466
2450That does not mean that AnyEvent won't take advantage of some additional 2467That does not mean that AnyEvent won't take advantage of some additional
2451modules if they are installed. 2468modules if they are installed.
2452 2469
2453This section epxlains which additional modules will be used, and how they 2470This section explains which additional modules will be used, and how they
2454affect AnyEvent's operetion. 2471affect AnyEvent's operation.
2455 2472
2456=over 4 2473=over 4
2457 2474
2458=item L<Async::Interrupt> 2475=item L<Async::Interrupt>
2459 2476
2464catch the signals) with some delay (default is 10 seconds, look for 2481catch the signals) with some delay (default is 10 seconds, look for
2465C<$AnyEvent::MAX_SIGNAL_LATENCY>). 2482C<$AnyEvent::MAX_SIGNAL_LATENCY>).
2466 2483
2467If this module is available, then it will be used to implement signal 2484If this module is available, then it will be used to implement signal
2468catching, which means that signals will not be delayed, and the event loop 2485catching, which means that signals will not be delayed, and the event loop
2469will not be interrupted regularly, which is more efficient (And good for 2486will not be interrupted regularly, which is more efficient (and good for
2470battery life on laptops). 2487battery life on laptops).
2471 2488
2472This affects not just the pure-perl event loop, but also other event loops 2489This affects not just the pure-perl event loop, but also other event loops
2473that have no signal handling on their own (e.g. Glib, Tk, Qt). 2490that have no signal handling on their own (e.g. Glib, Tk, Qt).
2474 2491
2521 2538
2522 2539
2523=head1 FORK 2540=head1 FORK
2524 2541
2525Most event libraries are not fork-safe. The ones who are usually are 2542Most event libraries are not fork-safe. The ones who are usually are
2526because they rely on inefficient but fork-safe C<select> or C<poll> 2543because they rely on inefficient but fork-safe C<select> or C<poll> calls
2527calls. Only L<EV> is fully fork-aware. 2544- higher performance APIs such as BSD's kqueue or the dreaded Linux epoll
2545are usually badly thought-out hacks that are incompatible with fork in
2546one way or another. Only L<EV> is fully fork-aware and ensures that you
2547continue event-processing in both parent and child (or both, if you know
2548what you are doing).
2549
2550This means that, in general, you cannot fork and do event processing in
2551the child if the event library was initialised before the fork (which
2552usually happens when the first AnyEvent watcher is created, or the library
2553is loaded).
2528 2554
2529If you have to fork, you must either do so I<before> creating your first 2555If you have to fork, you must either do so I<before> creating your first
2530watcher OR you must not use AnyEvent at all in the child OR you must do 2556watcher OR you must not use AnyEvent at all in the child OR you must do
2531something completely out of the scope of AnyEvent. 2557something completely out of the scope of AnyEvent.
2558
2559The problem of doing event processing in the parent I<and> the child
2560is much more complicated: even for backends that I<are> fork-aware or
2561fork-safe, their behaviour is not usually what you want: fork clones all
2562watchers, that means all timers, I/O watchers etc. are active in both
2563parent and child, which is almost never what you want. USing C<exec>
2564to start worker children from some kind of manage rprocess is usually
2565preferred, because it is much easier and cleaner, at the expense of having
2566to have another binary.
2532 2567
2533 2568
2534=head1 SECURITY CONSIDERATIONS 2569=head1 SECURITY CONSIDERATIONS
2535 2570
2536AnyEvent can be forced to load any event model via 2571AnyEvent can be forced to load any event model via

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines