File Coverage

blib/lib/UV/Handle.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	8	10	80.0
condition	4	9	44.4
subroutine	10	10	100.0
pod	2	3	66.6
total	63	72	87.5

package UV::Handle;

our $VERSION = '1.900';

use strict;
use warnings;
use Carp ();
use Exporter qw(import);
use UV ();
use UV::Loop ();

sub _new_args {
    my ($class, $args) = @ _;
    my $loop = delete $args->{loop} // UV::Loop->default;
    return ($loop);
}

sub new {
    my $class = shift;
    my %args = @_;

    my $self = $class->_new($class->_new_args(\%args));
    $self->on(($_ =~ m/^on_(.*)/)[0] => delete $args{$_}) for grep { m/^on_/ } keys %args;

    if(%args) {
        my $code;
        $code = $self->can("_set_$_") and $self->$code(delete $args{$_}) for keys %args;
        die "TODO: more args @{[ keys %args ]}" if keys %args;
    }

    return $self;
}

sub on {
    my $self = shift;
    my $method = "_on_" . shift;
    return $self->$method( @_ );
}

sub close {
    my $self = shift;
    $self->on('close', @_) if @_;

    return if $self->closed || $self->closing;
    $self->stop if $self->can('stop');
    $self->_close;
}

1;

__END__