File Coverage

blib/lib/IO/Async/Loop/linux.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch	0	4	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	20	40.0

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2009 -- [e-mail]

package IO::Async::Loop::linux;

use strict;
use warnings;

our $VERSION = '0.04';

=head1 NAME

C - pick the best Loop implementation on Linux

=head1 DESCRIPTION

If this module is installed, then the best Loop implementation will
automatically be picked when C<< IO::Async::Loop->new() >> is called on a
Linux machine. It will attempt to use either of the following, in order, if
they are available

=over 4

=item *

L

=item *

L

=back

The end application using L does not need to make any special
effort to use these; the magic constructor in L will
automatically find and use it if it is installed.

 $ perl -MIO::Async::Loop -E 'say ref IO::Async::Loop->new'
 IO::Async::Loop::Epoll

=cut

sub new
{
   shift;
   eval { require IO::Async::Loop::Epoll } and return IO::Async::Loop::Epoll->new;
   eval { require IO::Async::Loop::Ppoll } and return IO::Async::Loop::Ppoll->new;
   die;
}

# Keep perl happy; keep Britain tidy
1;

__END__