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.149 by root, Sat May 31 01:41:22 2008 UTC vs.
Revision 1.163 by root, Fri Jul 4 12:25:44 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
… …
138Many watchers either are used with "recursion" (repeating timers for 138Many watchers either are used with "recursion" (repeating timers for
139example), or need to refer to their watcher object in other ways. 139example), or need to refer to their watcher object in other ways.
140 140
141An any way to achieve that is this pattern: 141An any way to achieve that is this pattern:
142 142
143 my $w; $w = AnyEvent->type (arg => value ..., cb => sub { 143 my $w; $w = AnyEvent->type (arg => value ..., cb => sub {
144 # you can use $w here, for example to undef it 144 # you can use $w here, for example to undef it
145 undef $w; 145 undef $w;
146 }); 146 });
147 147
148Note that C<my $w; $w => combination. This is necessary because in Perl, 148Note that C<my $w; $w => combination. This is necessary because in Perl,
149my variables are only visible after the statement in which they are 149my variables are only visible after the statement in which they are
150declared. 150declared.
151 151
… …
352AnyEvent program, you I<have> to create at least one watcher before you 352AnyEvent program, you I<have> to create at least one watcher before you
353C<fork> the child (alternatively, you can call C<AnyEvent::detect>). 353C<fork> the child (alternatively, you can call C<AnyEvent::detect>).
354 354
355Example: fork a process and wait for it 355Example: fork a process and wait for it
356 356
357 my $done = AnyEvent->condvar; 357 my $done = AnyEvent->condvar;
358 358
359 my $pid = fork or exit 5; 359 my $pid = fork or exit 5;
360 360
361 my $w = AnyEvent->child ( 361 my $w = AnyEvent->child (
362 pid => $pid, 362 pid => $pid,
363 cb => sub { 363 cb => sub {
364 my ($pid, $status) = @_; 364 my ($pid, $status) = @_;
365 warn "pid $pid exited with status $status"; 365 warn "pid $pid exited with status $status";
366 $done->send; 366 $done->send;
367 }, 367 },
368 ); 368 );
369 369
370 # do something else, then wait for process exit 370 # do something else, then wait for process exit
371 $done->recv; 371 $done->recv;
372 372
373=head2 CONDITION VARIABLES 373=head2 CONDITION VARIABLES
374 374
375If you are familiar with some event loops you will know that all of them 375If 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 376require you to run some blocking "loop", "run" or similar function that
… …
752 752
753=item L<AnyEvent::DNS> 753=item L<AnyEvent::DNS>
754 754
755Provides rich asynchronous DNS resolver capabilities. 755Provides rich asynchronous DNS resolver capabilities.
756 756
757=item L<AnyEvent::HTTP>
758
759A simple-to-use HTTP library that is capable of making a lot of concurrent
760HTTP requests.
761
757=item L<AnyEvent::HTTPD> 762=item L<AnyEvent::HTTPD>
758 763
759Provides a simple web application server framework. 764Provides a simple web application server framework.
760 765
761=item L<AnyEvent::FastPing> 766=item L<AnyEvent::FastPing>
762 767
763The fastest ping in the west. 768The fastest ping in the west.
769
770=item L<AnyEvent::DBI>
771
772Executes DBI requests asynchronously in a proxy process.
764 773
765=item L<Net::IRC3> 774=item L<Net::IRC3>
766 775
767AnyEvent based IRC client module family. 776AnyEvent based IRC client module family.
768 777
… …
807no warnings; 816no warnings;
808use strict; 817use strict;
809 818
810use Carp; 819use Carp;
811 820
812our $VERSION = 4.11; 821our $VERSION = 4.161;
813our $MODEL; 822our $MODEL;
814 823
815our $AUTOLOAD; 824our $AUTOLOAD;
816our @ISA; 825our @ISA;
817 826
… …
979sub AnyEvent::Base::Signal::DESTROY { 988sub AnyEvent::Base::Signal::DESTROY {
980 my ($signal, $cb) = @{$_[0]}; 989 my ($signal, $cb) = @{$_[0]};
981 990
982 delete $SIG_CB{$signal}{$cb}; 991 delete $SIG_CB{$signal}{$cb};
983 992
984 $SIG{$signal} = 'DEFAULT' unless keys %{ $SIG_CB{$signal} }; 993 delete $SIG{$signal} unless keys %{ $SIG_CB{$signal} };
985} 994}
986 995
987# default implementation for ->child 996# default implementation for ->child
988 997
989our %PID_CB; 998our %PID_CB;
… …
1173This functionality might change in future versions. 1182This functionality might change in future versions.
1174 1183
1175For example, to force the pure perl model (L<AnyEvent::Impl::Perl>) you 1184For example, to force the pure perl model (L<AnyEvent::Impl::Perl>) you
1176could start your program like this: 1185could start your program like this:
1177 1186
1178 PERL_ANYEVENT_MODEL=Perl perl ... 1187 PERL_ANYEVENT_MODEL=Perl perl ...
1179 1188
1180=item C<PERL_ANYEVENT_PROTOCOLS> 1189=item C<PERL_ANYEVENT_PROTOCOLS>
1181 1190
1182Used by both L<AnyEvent::DNS> and L<AnyEvent::Socket> to determine preferences 1191Used by both L<AnyEvent::DNS> and L<AnyEvent::Socket> to determine preferences
1183for IPv4 or IPv6. The default is unspecified (and might change, or be the result 1192for IPv4 or IPv6. The default is unspecified (and might change, or be the result
… …
1658specified in the variable. 1667specified in the variable.
1659 1668
1660You can make AnyEvent completely ignore this variable by deleting it 1669You can make AnyEvent completely ignore this variable by deleting it
1661before the first watcher gets created, e.g. with a C<BEGIN> block: 1670before the first watcher gets created, e.g. with a C<BEGIN> block:
1662 1671
1663 BEGIN { delete $ENV{PERL_ANYEVENT_MODEL} } 1672 BEGIN { delete $ENV{PERL_ANYEVENT_MODEL} }
1664 1673
1665 use AnyEvent; 1674 use AnyEvent;
1666 1675
1667Similar considerations apply to $ENV{PERL_ANYEVENT_VERBOSE}, as that can 1676Similar considerations apply to $ENV{PERL_ANYEVENT_VERBOSE}, as that can
1668be used to probe what backend is used and gain other information (which is 1677be used to probe what backend is used and gain other information (which is
1669probably even less useful to an attacker than PERL_ANYEVENT_MODEL). 1678probably even less useful to an attacker than PERL_ANYEVENT_MODEL).
1679
1680
1681=head1 BUGS
1682
1683Perl 5.8 has numerous memleaks that sometimes hit this module and are hard
1684to work around. If you suffer from memleaks, first upgrade to Perl 5.10
1685and check wether the leaks still show up. (Perl 5.10.0 has other annoying
1686mamleaks, such as leaking on C<map> and C<grep> but it is usually not as
1687pronounced).
1670 1688
1671 1689
1672=head1 SEE ALSO 1690=head1 SEE ALSO
1673 1691
1674Utility functions: L<AnyEvent::Util>. 1692Utility functions: L<AnyEvent::Util>.
… …
1691Nontrivial usage examples: L<Net::FCP>, L<Net::XMPP2>, L<AnyEvent::DNS>. 1709Nontrivial usage examples: L<Net::FCP>, L<Net::XMPP2>, L<AnyEvent::DNS>.
1692 1710
1693 1711
1694=head1 AUTHOR 1712=head1 AUTHOR
1695 1713
1696 Marc Lehmann <schmorp@schmorp.de> 1714 Marc Lehmann <schmorp@schmorp.de>
1697 http://home.schmorp.de/ 1715 http://home.schmorp.de/
1698 1716
1699=cut 1717=cut
1700 1718
17011 17191
1702 1720

Diff Legend

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