File Coverage

blib/lib/UV/Poll.pm

Criterion	Covered	Total	%
statement	38	42	90.4
branch	7	14	50.0
condition	3	8	37.5
subroutine	7	7	100.0
pod	1	1	100.0
total	56	72	77.7

package UV::Poll;

our $VERSION = '1.902';

use strict;
use warnings;
use Carp ();
use Exporter qw(import);
use parent 'UV::Handle';

our @EXPORT_OK = (@UV::Poll::EXPORT_XS,);

sub _new_args {
    my ($class, $args) = @_;
    my ($fd, $is_socket);
    for my $key (qw(fd fh socket single_arg)) {
        next if !defined($fd = delete $args->{$key});

        $is_socket = $key eq "socket";
        if (CORE::ref($fd) eq 'GLOB' || CORE::ref($fd) =~ /^IO::Socket/) {
            $fd = fileno($fd);
            last;
        }
        elsif (!CORE::ref($fd) && $fd =~ /\A[0-9]+\z/) {
            last;
        }
        else {
            $fd = undef;
        }
    }
    unless (defined($fd)) {
        Carp::croak("No file or socket descriptor provided");
    }
    return ($class->SUPER::_new_args($args), $fd, $is_socket);
}

sub start {
    my $self = shift;
    Carp::croak("Can't start a closed handle") if $self->closed();

    my $events = shift(@_) || UV::Poll::UV_READABLE;

    if (@_) {
        $self->on('poll', shift);
    }
    my $res;
    my $err = do { #catch
        local $@;
        eval {
            $res = $self->_start($events);
            1;
        }; #try
        $@;
    };
    Carp::croak($err) if $err; # throw
    return $res;
}

1;

__END__