File Coverage

blib/lib/MHFS/EventLoop/Poll.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	3	4	75.0
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	33	37	89.1

package MHFS::EventLoop::Poll v0.7.0;
use 5.014;
use strict; use warnings;
use feature 'say';

my $selbackend;
BEGIN {
my @backends = ("'MHFS::EventLoop::Poll::Linux'",
                "'MHFS::EventLoop::Poll::Base'");

foreach my $backend (@backends) {
    if(eval "use parent $backend; 1;") {
        $selbackend = $backend;
        last;
    }
}
$selbackend or die("Failed to load MHFS::EventLoop::Poll backend");
}

sub backend {
    return $selbackend;
}

1;