File Coverage

blib/lib/UV/Check.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	33	34	97.0

package UV::Check;

our $VERSION = '1.900';

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

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

1;

__END__