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.362 by root, Sun Aug 14 01:57:18 2011 UTC vs.
Revision 1.373 by root, Thu Aug 25 03:08:48 2011 UTC

1=head1 NAME 1=head1 NAME
2 2
3AnyEvent - the DBI of event loop programming 3AnyEvent - the DBI of event loop programming
4 4
5EV, Event, Glib, Tk, Perl, Event::Lib, Irssi, rxvt-unicode, IO::Async, Qt 5EV, Event, Glib, Tk, Perl, Event::Lib, Irssi, rxvt-unicode, IO::Async, Qt,
6and POE are various supported event loops/environments. 6FLTK and POE are various supported event loops/environments.
7 7
8=head1 SYNOPSIS 8=head1 SYNOPSIS
9 9
10 use AnyEvent; 10 use AnyEvent;
11 11
… …
1049It should use C<postpone>: 1049It should use C<postpone>:
1050 1050
1051 AnyEvent::postpone { $cb->(undef) }, return # signal error to callback, later 1051 AnyEvent::postpone { $cb->(undef) }, return # signal error to callback, later
1052 if $some_error_condition; 1052 if $some_error_condition;
1053 1053
1054=item AnyEvent::log $level, $msg[, @args]
1055
1056Log the given C<$msg> at the given C<$level>.
1057
1058Loads AnyEvent::Log on first use and calls C<AnyEvent::Log::log> -
1059consequently, look at the L<AnyEvent::Log> documentation for details.
1060
1061If you want to sprinkle loads of logging calls around your code, consider
1062creating a logger callback with the C<AnyEvent::Log::logger> function.
1063
1054=back 1064=back
1055 1065
1056=head1 WHAT TO DO IN A MODULE 1066=head1 WHAT TO DO IN A MODULE
1057 1067
1058As a module author, you should C<use AnyEvent> and call AnyEvent methods 1068As a module author, you should C<use AnyEvent> and call AnyEvent methods
… …
1114 1124
1115 1125
1116=head1 OTHER MODULES 1126=head1 OTHER MODULES
1117 1127
1118The following is a non-exhaustive list of additional modules that use 1128The following is a non-exhaustive list of additional modules that use
1119AnyEvent as a client and can therefore be mixed easily with other AnyEvent 1129AnyEvent as a client and can therefore be mixed easily with other
1120modules and other event loops in the same program. Some of the modules 1130AnyEvent modules and other event loops in the same program. Some of the
1121come as part of AnyEvent, the others are available via CPAN. 1131modules come as part of AnyEvent, the others are available via CPAN (see
1132L<http://search.cpan.org/search?m=module&q=anyevent%3A%3A*> for
1133a longer non-exhaustive list), and the list is heavily biased towards
1134modules of the AnyEvent author himself :)
1122 1135
1123=over 4 1136=over 4
1124 1137
1125=item L<AnyEvent::Util> 1138=item L<AnyEvent::Util>
1126 1139
… …
1223 eval "sub TAINT (){" . (${^TAINT}*1) . "}"; 1236 eval "sub TAINT (){" . (${^TAINT}*1) . "}";
1224 1237
1225 delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} 1238 delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV}
1226 if ${^TAINT}; 1239 if ${^TAINT};
1227 1240
1241 $ENV{"PERL_ANYEVENT_$_"} = $ENV{"AE_$_"}
1242 for grep s/^AE_// && !exists $ENV{"PERL_ANYEVENT_$_"}, keys %ENV;
1243
1244 @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} = ()
1245 if ${^TAINT};
1246
1228 $VERBOSE = $ENV{PERL_ANYEVENT_VERBOSE}*1; 1247 $VERBOSE = $ENV{PERL_ANYEVENT_VERBOSE}*1;
1229
1230} 1248}
1231 1249
1232our $MAX_SIGNAL_LATENCY = 10; 1250our $MAX_SIGNAL_LATENCY = 10;
1233 1251
1234our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred 1252our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred
… …
1270 push @POSTPONE, shift; 1288 push @POSTPONE, shift;
1271 1289
1272 $POSTPONE_W ||= AE::timer (0, 0, \&_postpone_exec); 1290 $POSTPONE_W ||= AE::timer (0, 0, \&_postpone_exec);
1273 1291
1274 () 1292 ()
1293}
1294
1295sub log($$;@) {
1296 # only load the bug bloated module when we actually are about to log something
1297 if ($_[0] <= $VERBOSE) {
1298 require AnyEvent::Log;
1299 # AnyEvent::Log overwrites this function
1300 goto &log;
1301 }
1302}
1303
1304if (length $ENV{PERL_ANYEVENT_LOG}) {
1305 require AnyEvent::Log; # AnyEvent::Log does the thing for us
1275} 1306}
1276 1307
1277our @models = ( 1308our @models = (
1278 [EV:: => AnyEvent::Impl::EV:: , 1], 1309 [EV:: => AnyEvent::Impl::EV:: , 1],
1279 [AnyEvent::Loop:: => AnyEvent::Impl::Perl:: , 1], 1310 [AnyEvent::Loop:: => AnyEvent::Impl::Perl:: , 1],
… …
1318# all autoloaded methods reserve the complete glob, not just the method slot. 1349# all autoloaded methods reserve the complete glob, not just the method slot.
1319# due to bugs in perls method cache implementation. 1350# due to bugs in perls method cache implementation.
1320our @methods = qw(io timer time now now_update signal child idle condvar); 1351our @methods = qw(io timer time now now_update signal child idle condvar);
1321 1352
1322sub detect() { 1353sub detect() {
1354 return $MODEL if $MODEL; # some programs keep references to detect
1355
1323 local $!; # for good measure 1356 local $!; # for good measure
1324 local $SIG{__DIE__}; # we use eval 1357 local $SIG{__DIE__}; # we use eval
1325 1358
1326 # free some memory 1359 # free some memory
1327 *detect = sub () { $MODEL }; 1360 *detect = sub () { $MODEL };
… …
1335 1368
1336 if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z0-9:]+)$/) { 1369 if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z0-9:]+)$/) {
1337 my $model = $1; 1370 my $model = $1;
1338 $model = "AnyEvent::Impl::$model" unless $model =~ s/::$//; 1371 $model = "AnyEvent::Impl::$model" unless $model =~ s/::$//;
1339 if (eval "require $model") { 1372 if (eval "require $model") {
1373 AnyEvent::log 7 => "loaded model '$model' (forced by \$ENV{PERL_ANYEVENT_MODEL}), using it.";
1340 $MODEL = $model; 1374 $MODEL = $model;
1341 warn "AnyEvent: loaded model '$model' (forced by \$ENV{PERL_ANYEVENT_MODEL}), using it.\n" if $VERBOSE >= 2;
1342 } else { 1375 } else {
1343 warn "AnyEvent: unable to load model '$model' (from \$ENV{PERL_ANYEVENT_MODEL}):\n$@" if $VERBOSE; 1376 AnyEvent::log warn => "unable to load model '$model' (from \$ENV{PERL_ANYEVENT_MODEL}):\n$@";
1344 } 1377 }
1345 } 1378 }
1346 1379
1347 # check for already loaded models 1380 # check for already loaded models
1348 unless ($MODEL) { 1381 unless ($MODEL) {
1349 for (@REGISTRY, @models) { 1382 for (@REGISTRY, @models) {
1350 my ($package, $model) = @$_; 1383 my ($package, $model) = @$_;
1351 if (${"$package\::VERSION"} > 0) { 1384 if (${"$package\::VERSION"} > 0) {
1352 if (eval "require $model") { 1385 if (eval "require $model") {
1386 AnyEvent::log 7 => "autodetected model '$model', using it.";
1353 $MODEL = $model; 1387 $MODEL = $model;
1354 warn "AnyEvent: autodetected model '$model', using it.\n" if $VERBOSE >= 2;
1355 last; 1388 last;
1356 } 1389 }
1357 } 1390 }
1358 } 1391 }
1359 1392
… …
1365 $autoload 1398 $autoload
1366 and eval "require $package" 1399 and eval "require $package"
1367 and ${"$package\::VERSION"} > 0 1400 and ${"$package\::VERSION"} > 0
1368 and eval "require $model" 1401 and eval "require $model"
1369 ) { 1402 ) {
1403 AnyEvent::log 7 => "autoloaded model '$model', using it.";
1370 $MODEL = $model; 1404 $MODEL = $model;
1371 warn "AnyEvent: autoloaded model '$model', using it.\n" if $VERBOSE >= 2;
1372 last; 1405 last;
1373 } 1406 }
1374 } 1407 }
1375 1408
1376 $MODEL 1409 $MODEL
1377 or die "AnyEvent: backend autodetection failed - did you properly install AnyEvent?\n"; 1410 or die "AnyEvent: backend autodetection failed - did you properly install AnyEvent?";
1378 } 1411 }
1379 } 1412 }
1380 1413
1381 # free memory only needed for probing 1414 # free memory only needed for probing
1382 undef @models; 1415 undef @models;
… …
1391 if defined &{"$MODEL\::$_"}; 1424 if defined &{"$MODEL\::$_"};
1392 } 1425 }
1393 1426
1394 _isa_set; 1427 _isa_set;
1395 1428
1429 # we're officially open!
1430
1396 if ($ENV{PERL_ANYEVENT_STRICT}) { 1431 if ($ENV{PERL_ANYEVENT_STRICT}) {
1397 require AnyEvent::Strict; 1432 require AnyEvent::Strict;
1398 } 1433 }
1399 1434
1400 if ($ENV{PERL_ANYEVENT_DEBUG_WRAP}) { 1435 if ($ENV{PERL_ANYEVENT_DEBUG_WRAP}) {
1401 require AnyEvent::Debug; 1436 require AnyEvent::Debug;
1402 AnyEvent::Debug::wrap ($ENV{PERL_ANYEVENT_DEBUG_WRAP}); 1437 AnyEvent::Debug::wrap ($ENV{PERL_ANYEVENT_DEBUG_WRAP});
1403 } 1438 }
1404 1439
1405 if (exists $ENV{PERL_ANYEVENT_DEBUG_SHELL}) { 1440 if (length $ENV{PERL_ANYEVENT_DEBUG_SHELL}) {
1406 require AnyEvent::Socket; 1441 require AnyEvent::Socket;
1407 require AnyEvent::Debug; 1442 require AnyEvent::Debug;
1408 1443
1409 my $shell = $ENV{PERL_ANYEVENT_DEBUG_SHELL}; 1444 my $shell = $ENV{PERL_ANYEVENT_DEBUG_SHELL};
1410 $shell =~ s/\$\$/$$/g; 1445 $shell =~ s/\$\$/$$/g;
1411 1446
1412 my ($host, $service) = AnyEvent::Socket::parse_hostport ($shell); 1447 my ($host, $service) = AnyEvent::Socket::parse_hostport ($shell);
1413 $AnyEvent::Debug::SHELL = AnyEvent::Debug::shell ($host, $service); 1448 $AnyEvent::Debug::SHELL = AnyEvent::Debug::shell ($host, $service);
1414 } 1449 }
1450
1451 # now the anyevent environment is set up as the user told us to, so
1452 # call the actual user code - post detects
1415 1453
1416 (shift @post_detect)->() while @post_detect; 1454 (shift @post_detect)->() while @post_detect;
1417 undef @post_detect; 1455 undef @post_detect;
1418 1456
1419 *post_detect = sub(&) { 1457 *post_detect = sub(&) {
… …
1506 sub time() { 1544 sub time() {
1507 AnyEvent->time 1545 AnyEvent->time
1508 } 1546 }
1509 1547
1510 *postpone = \&AnyEvent::postpone; 1548 *postpone = \&AnyEvent::postpone;
1549 *log = \&AnyEvent::log;
1511 }; 1550 };
1512 die if $@; 1551 die if $@;
1513} 1552}
1514 1553
1515BEGIN { _reset } 1554BEGIN { _reset }
… …
1520 1559
1521sub time { 1560sub time {
1522 eval q{ # poor man's autoloading {} 1561 eval q{ # poor man's autoloading {}
1523 # probe for availability of Time::HiRes 1562 # probe for availability of Time::HiRes
1524 if (eval "use Time::HiRes (); Time::HiRes::time (); 1") { 1563 if (eval "use Time::HiRes (); Time::HiRes::time (); 1") {
1525 warn "AnyEvent: using Time::HiRes for sub-second timing accuracy.\n" if $VERBOSE >= 8; 1564 AnyEvent::log 8 => "AnyEvent: using Time::HiRes for sub-second timing accuracy."
1565 if $AnyEvent::VERBOSE >= 8;
1526 *time = sub { Time::HiRes::time () }; 1566 *time = sub { Time::HiRes::time () };
1527 *AE::time = \& Time::HiRes::time ; 1567 *AE::time = \& Time::HiRes::time ;
1528 # if (eval "use POSIX (); (POSIX::times())... 1568 # if (eval "use POSIX (); (POSIX::times())...
1529 } else { 1569 } else {
1530 warn "AnyEvent: using built-in time(), WARNING, no sub-second resolution!\n" if $VERBOSE; 1570 AnyEvent::log critical => "using built-in time(), WARNING, no sub-second resolution!";
1531 *time = sub { CORE::time }; 1571 *time = sub { CORE::time };
1532 *AE::time = sub (){ CORE::time }; 1572 *AE::time = sub (){ CORE::time };
1533 } 1573 }
1534 1574
1535 *now = \&time; 1575 *now = \&time;
… …
1633 1673
1634sub signal { 1674sub signal {
1635 eval q{ # poor man's autoloading {} 1675 eval q{ # poor man's autoloading {}
1636 # probe for availability of Async::Interrupt 1676 # probe for availability of Async::Interrupt
1637 if (_have_async_interrupt) { 1677 if (_have_async_interrupt) {
1638 warn "AnyEvent: using Async::Interrupt for race-free signal handling.\n" if $VERBOSE >= 8; 1678 AnyEvent::log 8 => "using Async::Interrupt for race-free signal handling."
1679 if $AnyEvent::VERBOSE >= 8;
1639 1680
1640 $SIGPIPE_R = new Async::Interrupt::EventPipe; 1681 $SIGPIPE_R = new Async::Interrupt::EventPipe;
1641 $SIG_IO = AE::io $SIGPIPE_R->fileno, 0, \&_signal_exec; 1682 $SIG_IO = AE::io $SIGPIPE_R->fileno, 0, \&_signal_exec;
1642 1683
1643 } else { 1684 } else {
1644 warn "AnyEvent: using emulated perl signal handling with latency timer.\n" if $VERBOSE >= 8; 1685 AnyEvent::log 8 => "using emulated perl signal handling with latency timer."
1686 if $AnyEvent::VERBOSE >= 8;
1645 1687
1646 if (AnyEvent::WIN32) { 1688 if (AnyEvent::WIN32) {
1647 require AnyEvent::Util; 1689 require AnyEvent::Util;
1648 1690
1649 ($SIGPIPE_R, $SIGPIPE_W) = AnyEvent::Util::portable_pipe (); 1691 ($SIGPIPE_R, $SIGPIPE_W) = AnyEvent::Util::portable_pipe ();
… …
1943$Event/EV::DIED->() >>, L<Glib> uses C<< install_exception_handler >> and 1985$Event/EV::DIED->() >>, L<Glib> uses C<< install_exception_handler >> and
1944so on. 1986so on.
1945 1987
1946=head1 ENVIRONMENT VARIABLES 1988=head1 ENVIRONMENT VARIABLES
1947 1989
1948The following environment variables are used by this module or its 1990AnyEvent supports a number of environment variables that tune the
1949submodules. 1991runtime behaviour. They are usually evaluated when AnyEvent is
1992loaded, initialised, or a submodule that uses them is loaded. Many of
1993them also cause AnyEvent to load additional modules - for example,
1994C<PERL_ANYEVENT_DEBUG_WRAP> causes the L<AnyEvent::Debug> module to be
1995loaded.
1950 1996
1951Note that AnyEvent will remove I<all> environment variables starting with 1997All the environment variables documented here start with
1952C<PERL_ANYEVENT_> from C<%ENV> when it is loaded while taint mode is 1998C<PERL_ANYEVENT_>, which is what AnyEvent considers its own
1953enabled. 1999namespace. Other modules are encouraged (but by no means required) to use
2000C<PERL_ANYEVENT_SUBMODULE> if they have registered the AnyEvent::Submodule
2001namespace on CPAN, for any submodule. For example, L<AnyEvent::HTTP> could
2002be expected to use C<PERL_ANYEVENT_HTTP_PROXY> (it should not access env
2003variables starting with C<AE_>, see below).
2004
2005All variables can also be set via the C<AE_> prefix, that is, instead
2006of setting C<PERL_ANYEVENT_VERBOSE> you can also set C<AE_VERBOSE>. In
2007case there is a clash btween anyevent and another program that uses
2008C<AE_something> you can set the corresponding C<PERL_ANYEVENT_something>
2009variable to the empty string, as those variables take precedence.
2010
2011When AnyEvent is first loaded, it copies all C<AE_xxx> env variables
2012to their C<PERL_ANYEVENT_xxx> counterpart unless that variable already
2013exists. If taint mode is on, then AnyEvent will remove I<all> environment
2014variables starting with C<PERL_ANYEVENT_> from C<%ENV> (or replace them
2015with C<undef> or the empty string, if the corresaponding C<AE_> variable
2016is set).
2017
2018The exact algorithm is currently:
2019
2020 1. if taint mode enabled, delete all PERL_ANYEVENT_xyz variables from %ENV
2021 2. copy over AE_xyz to PERL_ANYEVENT_xyz unless the latter alraedy exists
2022 3. if taint mode enabled, set all PERL_ANYEVENT_xyz variables to undef.
2023
2024This ensures that child processes will not see the C<AE_> variables.
2025
2026The following environment variables are currently known to AnyEvent:
1954 2027
1955=over 4 2028=over 4
1956 2029
1957=item C<PERL_ANYEVENT_VERBOSE> 2030=item C<PERL_ANYEVENT_VERBOSE>
1958 2031
1959By default, AnyEvent will be completely silent except in fatal 2032By default, AnyEvent will be completely silent except in fatal
1960conditions. You can set this environment variable to make AnyEvent more 2033conditions. You can set this environment variable to make AnyEvent more
1961talkative. 2034talkative. If you want to do more than just set the global logging level
2035you should have a look at C<PERL_ANYEVENT_LOG>, which allows much more
2036complex specifications.
1962 2037
1963When set to C<1> or higher, causes AnyEvent to warn about unexpected 2038When set to C<5> or higher, causes AnyEvent to warn about unexpected
1964conditions, such as not being able to load the event model specified by 2039conditions, such as not being able to load the event model specified by
1965C<PERL_ANYEVENT_MODEL>. 2040C<PERL_ANYEVENT_MODEL>.
1966 2041
1967When set to C<2> or higher, cause AnyEvent to report to STDERR which event 2042When set to C<7> or higher, cause AnyEvent to report to STDERR which event
1968model it chooses. 2043model it chooses.
1969 2044
1970When set to C<8> or higher, then AnyEvent will report extra information on 2045When set to C<8> or higher, then AnyEvent will report extra information on
1971which optional modules it loads and how it implements certain features. 2046which optional modules it loads and how it implements certain features.
2047
2048=item C<PERL_ANYEVENT_LOG>
2049
2050Accepts rather complex logging specifications. For example, you could log
2051all C<debug> messages of some module to stderr, warnings and above to
2052stderr, and errors and above to syslog, with:
2053
2054 PERL_ANYEVENT_LOG=Some::Module=debug,+log:filter=warn,+%syslog:%syslog=error,syslog
2055
2056For the rather extensive details, see L<AnyEvent::Log>.
2057
2058Note that specifying this environment variable causes the L<AnyEvent::Log>
2059module to be loaded, while C<PERL_ANYEVENT_VERBOSE> does not, so only
2060using the latter saves a few hundred kB of memory until the first message
2061is being logged.
1972 2062
1973=item C<PERL_ANYEVENT_STRICT> 2063=item C<PERL_ANYEVENT_STRICT>
1974 2064
1975AnyEvent does not do much argument checking by default, as thorough 2065AnyEvent does not do much argument checking by default, as thorough
1976argument checking is very costly. Setting this variable to a true value 2066argument checking is very costly. Setting this variable to a true value
… …
1995This takes place when the first watcher is created. 2085This takes place when the first watcher is created.
1996 2086
1997For example, to bind a debug shell on a unix domain socket in 2087For example, to bind a debug shell on a unix domain socket in
1998F<< /tmp/debug<pid>.sock >>, you could use this: 2088F<< /tmp/debug<pid>.sock >>, you could use this:
1999 2089
2000 PERL_ANYEVENT_DEBUG_SHELL=unix/:/tmp/debug\$\$.sock perlprog 2090 PERL_ANYEVENT_DEBUG_SHELL=/tmp/debug\$\$.sock perlprog
2001 2091
2002Note that creating sockets in F</tmp> is very unsafe on multiuser 2092Note that creating sockets in F</tmp> is very unsafe on multiuser
2003systems. 2093systems.
2004 2094
2005=item C<PERL_ANYEVENT_DEBUG_WRAP> 2095=item C<PERL_ANYEVENT_DEBUG_WRAP>
… …
2046but support both and try to use both. C<PERL_ANYEVENT_PROTOCOLS=ipv4> 2136but support both and try to use both. C<PERL_ANYEVENT_PROTOCOLS=ipv4>
2047- only support IPv4, never try to resolve or contact IPv6 2137- only support IPv4, never try to resolve or contact IPv6
2048addresses. C<PERL_ANYEVENT_PROTOCOLS=ipv6,ipv4> support either IPv4 or 2138addresses. C<PERL_ANYEVENT_PROTOCOLS=ipv6,ipv4> support either IPv4 or
2049IPv6, but prefer IPv6 over IPv4. 2139IPv6, but prefer IPv6 over IPv4.
2050 2140
2141=item C<PERL_ANYEVENT_HOSTS>
2142
2143This variable, if specified, overrides the F</etc/hosts> file used by
2144L<AnyEvent::Socket>C<::resolve_sockaddr>, i.e. hosts aliases will be read
2145from that file instead.
2146
2051=item C<PERL_ANYEVENT_EDNS0> 2147=item C<PERL_ANYEVENT_EDNS0>
2052 2148
2053Used by L<AnyEvent::DNS> to decide whether to use the EDNS0 extension 2149Used by L<AnyEvent::DNS> to decide whether to use the EDNS0 extension for
2054for DNS. This extension is generally useful to reduce DNS traffic, but 2150DNS. This extension is generally useful to reduce DNS traffic, especially
2055some (broken) firewalls drop such DNS packets, which is why it is off by 2151when DNSSEC is involved, but some (broken) firewalls drop such DNS
2056default. 2152packets, which is why it is off by default.
2057 2153
2058Setting this variable to C<1> will cause L<AnyEvent::DNS> to announce 2154Setting this variable to C<1> will cause L<AnyEvent::DNS> to announce
2059EDNS0 in its DNS requests. 2155EDNS0 in its DNS requests.
2060 2156
2061=item C<PERL_ANYEVENT_MAX_FORKS> 2157=item C<PERL_ANYEVENT_MAX_FORKS>
… …
2069resolver - this is the maximum number of parallel DNS requests that are 2165resolver - this is the maximum number of parallel DNS requests that are
2070sent to the DNS server. 2166sent to the DNS server.
2071 2167
2072=item C<PERL_ANYEVENT_RESOLV_CONF> 2168=item C<PERL_ANYEVENT_RESOLV_CONF>
2073 2169
2074The file to use instead of F</etc/resolv.conf> (or OS-specific 2170The absolute path to a F<resolv.conf>-style file to use instead of
2075configuration) in the default resolver. When set to the empty string, no 2171F</etc/resolv.conf> (or the OS-specific configuration) in the default
2076default config will be used. 2172resolver, or the empty string to select the default configuration.
2077 2173
2078=item C<PERL_ANYEVENT_CA_FILE>, C<PERL_ANYEVENT_CA_PATH>. 2174=item C<PERL_ANYEVENT_CA_FILE>, C<PERL_ANYEVENT_CA_PATH>.
2079 2175
2080When neither C<ca_file> nor C<ca_path> was specified during 2176When neither C<ca_file> nor C<ca_path> was specified during
2081L<AnyEvent::TLS> context creation, and either of these environment 2177L<AnyEvent::TLS> context creation, and either of these environment
2082variables exist, they will be used to specify CA certificate locations 2178variables are nonempty, they will be used to specify CA certificate
2083instead of a system-dependent default. 2179locations instead of a system-dependent default.
2084 2180
2085=item C<PERL_ANYEVENT_AVOID_GUARD> and C<PERL_ANYEVENT_AVOID_ASYNC_INTERRUPT> 2181=item C<PERL_ANYEVENT_AVOID_GUARD> and C<PERL_ANYEVENT_AVOID_ASYNC_INTERRUPT>
2086 2182
2087When these are set to C<1>, then the respective modules are not 2183When these are set to C<1>, then the respective modules are not
2088loaded. Mostly good for testing AnyEvent itself. 2184loaded. Mostly good for testing AnyEvent itself.
… …
2805 2901
2806Tutorial/Introduction: L<AnyEvent::Intro>. 2902Tutorial/Introduction: L<AnyEvent::Intro>.
2807 2903
2808FAQ: L<AnyEvent::FAQ>. 2904FAQ: L<AnyEvent::FAQ>.
2809 2905
2810Utility functions: L<AnyEvent::Util>. 2906Utility functions: L<AnyEvent::Util> (misc. grab-bag), L<AnyEvent::Log>
2907(simply logging).
2811 2908
2909Development/Debugging: L<AnyEvent::Strict> (stricter checking),
2910L<AnyEvent::Debug> (interactive shell, watcher tracing).
2911
2812Event modules: L<AnyEvent::Loop>, L<EV>, L<EV::Glib>, L<Glib::EV>, 2912Supported event modules: L<AnyEvent::Loop>, L<EV>, L<EV::Glib>,
2813L<Event>, L<Glib::Event>, L<Glib>, L<Tk>, L<Event::Lib>, L<Qt>, L<POE>. 2913L<Glib::EV>, L<Event>, L<Glib::Event>, L<Glib>, L<Tk>, L<Event::Lib>,
2914L<Qt>, L<POE>, L<FLTK>.
2814 2915
2815Implementations: L<AnyEvent::Impl::EV>, L<AnyEvent::Impl::Event>, 2916Implementations: L<AnyEvent::Impl::EV>, L<AnyEvent::Impl::Event>,
2816L<AnyEvent::Impl::Glib>, L<AnyEvent::Impl::Tk>, L<AnyEvent::Impl::Perl>, 2917L<AnyEvent::Impl::Glib>, L<AnyEvent::Impl::Tk>, L<AnyEvent::Impl::Perl>,
2817L<AnyEvent::Impl::EventLib>, L<AnyEvent::Impl::Qt>, 2918L<AnyEvent::Impl::EventLib>, L<AnyEvent::Impl::Qt>,
2818L<AnyEvent::Impl::POE>, L<AnyEvent::Impl::IOAsync>, L<Anyevent::Impl::Irssi>. 2919L<AnyEvent::Impl::POE>, L<AnyEvent::Impl::IOAsync>, L<Anyevent::Impl::Irssi>,
2920L<AnyEvent::Impl::FLTK>.
2819 2921
2820Non-blocking file handles, sockets, TCP clients and 2922Non-blocking handles, pipes, stream sockets, TCP clients and
2821servers: L<AnyEvent::Handle>, L<AnyEvent::Socket>, L<AnyEvent::TLS>. 2923servers: L<AnyEvent::Handle>, L<AnyEvent::Socket>, L<AnyEvent::TLS>.
2822 2924
2823Asynchronous DNS: L<AnyEvent::DNS>. 2925Asynchronous DNS: L<AnyEvent::DNS>.
2824 2926
2825Thread support: L<Coro>, L<Coro::AnyEvent>, L<Coro::EV>, L<Coro::Event>. 2927Thread support: L<Coro>, L<Coro::AnyEvent>, L<Coro::EV>, L<Coro::Event>.

Diff Legend

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