/usr/lib/perl5/AnyEvent/Impl/Perl.pm is in libanyevent-perl 6.120-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | =head1 NAME
AnyEvent::Impl::Perl - AnyEvent adaptor for AnyEvent's pure perl AnyEvent::Loop
=head1 SYNOPSIS
use AnyEvent;
use AnyEvent::Loop;
# this module gets loaded automatically as required
=head1 DESCRIPTION
This module provides transparent support for AnyEvent in case no other
event loop could be found or loaded.
If you want to use this module instead of autoloading another event loop
you can simply load L<AnyEvent::Loop> before creating the first watcher.
Naturally, it supports all features of AnyEvent.
See L<AnyEvent::Loop> for more details on performance characteristics.
=cut
package AnyEvent::Impl::Perl;
use AnyEvent (); BEGIN { AnyEvent::common_sense }
use AnyEvent::Loop;
our $VERSION = $AnyEvent::VERSION;
# time() is provided via AnyEvent::Base
*AE::now = \&AnyEvent::Loop::now;
*AE::now_update = \&AnyEvent::Loop::now_update;
*AE::io = \&AnyEvent::Loop::io;
*AE::timer = \&AnyEvent::Loop::timer;
*AE::idle = \&AnyEvent::Loop::idle;
*_poll = \&AnyEvent::Loop::one_event;
*loop = \&AnyEvent::Loop::run; # compatibility with AnyEvent < 6.0
sub now { $AnyEvent::Loop::NOW }
sub now_update { AE::now_update }
sub AnyEvent::CondVar::Base::_wait {
AnyEvent::Loop::one_event until exists $_[0]{_ae_sent};
}
sub io {
my (undef, %arg) = @_;
AnyEvent::Loop::io $arg{fh}, $arg{poll} eq "w", $arg{cb}
}
sub timer {
my (undef, %arg) = @_;
AnyEvent::Loop::timer $arg{after}, $arg{interval}, $arg{cb}
}
sub idle {
my (undef, %arg) = @_;
AnyEvent::Loop::idle $arg{cb}
}
1;
=head1 SEE ALSO
L<AnyEvent>.
=head1 AUTHOR
Marc Lehmann <schmorp@schmorp.de>
http://home.schmorp.de/
=cut
|