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.195 by root, Wed Mar 25 17:33:11 2009 UTC vs.
Revision 1.199 by root, Fri Mar 27 10:49:50 2009 UTC

137These watchers are normal Perl objects with normal Perl lifetime. After 137These watchers are normal Perl objects with normal Perl lifetime. After
138creating a watcher it will immediately "watch" for events and invoke the 138creating a watcher it will immediately "watch" for events and invoke the
139callback when the event occurs (of course, only when the event model 139callback when the event occurs (of course, only when the event model
140is in control). 140is in control).
141 141
142Note that B<callbacks must not permanently change global variables>
143potentially in use by the event loop (such as C<$_> or C<$[>) and that B<<
144callbacks must not C<die> >>. The former is good programming practise in
145Perl and the latter stems from the fact that exception handling differs
146widely between event loops.
147
142To disable the watcher you have to destroy it (e.g. by setting the 148To disable the watcher you have to destroy it (e.g. by setting the
143variable you store it in to C<undef> or otherwise deleting all references 149variable you store it in to C<undef> or otherwise deleting all references
144to it). 150to it).
145 151
146All watchers are created by calling a method on the C<AnyEvent> class. 152All watchers are created by calling a method on the C<AnyEvent> class.
162=head2 I/O WATCHERS 168=head2 I/O WATCHERS
163 169
164You can create an I/O watcher by calling the C<< AnyEvent->io >> method 170You can create an I/O watcher by calling the C<< AnyEvent->io >> method
165with the following mandatory key-value pairs as arguments: 171with the following mandatory key-value pairs as arguments:
166 172
167C<fh> the Perl I<file handle> (I<not> file descriptor) to watch for events 173C<fh> is the Perl I<file handle> (I<not> file descriptor) to watch
168(AnyEvent might or might not keep a reference to this file handle). C<poll> 174for events (AnyEvent might or might not keep a reference to this file
175handle). Note that only file handles pointing to things for which
176non-blocking operation makes sense are allowed. This includes sockets,
177most character devices, pipes, fifos and so on, but not for example files
178or block devices.
179
169must be a string that is either C<r> or C<w>, which creates a watcher 180C<poll> must be a string that is either C<r> or C<w>, which creates a
170waiting for "r"eadable or "w"ritable events, respectively. C<cb> is the 181watcher waiting for "r"eadable or "w"ritable events, respectively.
182
171callback to invoke each time the file handle becomes ready. 183C<cb> is the callback to invoke each time the file handle becomes ready.
172 184
173Although the callback might get passed parameters, their value and 185Although the callback might get passed parameters, their value and
174presence is undefined and you cannot rely on them. Portable AnyEvent 186presence is undefined and you cannot rely on them. Portable AnyEvent
175callbacks cannot use arguments passed to I/O watcher callbacks. 187callbacks cannot use arguments passed to I/O watcher callbacks.
176 188
861no warnings; 873no warnings;
862use strict qw(vars subs); 874use strict qw(vars subs);
863 875
864use Carp; 876use Carp;
865 877
866our $VERSION = 4.341; 878our $VERSION = 4.35;
867our $MODEL; 879our $MODEL;
868 880
869our $AUTOLOAD; 881our $AUTOLOAD;
870our @ISA; 882our @ISA;
871 883
1044# default implementation for ->signal 1056# default implementation for ->signal
1045 1057
1046our ($SIGPIPE_R, $SIGPIPE_W, %SIG_CB, %SIG_EV, $SIG_IO); 1058our ($SIGPIPE_R, $SIGPIPE_W, %SIG_CB, %SIG_EV, $SIG_IO);
1047 1059
1048sub _signal_exec { 1060sub _signal_exec {
1061 sysread $SIGPIPE_R, my $dummy, 4;
1062
1049 while (%SIG_EV) { 1063 while (%SIG_EV) {
1050 sysread $SIGPIPE_R, my $dummy, 4;
1051 for (keys %SIG_EV) { 1064 for (keys %SIG_EV) {
1052 delete $SIG_EV{$_}; 1065 delete $SIG_EV{$_};
1053 $_->() for values %{ $SIG_CB{$_} || {} }; 1066 $_->() for values %{ $SIG_CB{$_} || {} };
1054 } 1067 }
1055 } 1068 }
1854=head1 BUGS 1867=head1 BUGS
1855 1868
1856Perl 5.8 has numerous memleaks that sometimes hit this module and are hard 1869Perl 5.8 has numerous memleaks that sometimes hit this module and are hard
1857to work around. If you suffer from memleaks, first upgrade to Perl 5.10 1870to work around. If you suffer from memleaks, first upgrade to Perl 5.10
1858and check wether the leaks still show up. (Perl 5.10.0 has other annoying 1871and check wether the leaks still show up. (Perl 5.10.0 has other annoying
1859mamleaks, such as leaking on C<map> and C<grep> but it is usually not as 1872memleaks, such as leaking on C<map> and C<grep> but it is usually not as
1860pronounced). 1873pronounced).
1861 1874
1862 1875
1863=head1 SEE ALSO 1876=head1 SEE ALSO
1864 1877

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines