File Coverage

blib/lib/UV/Timer.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	6	8	75.0
condition	4	4	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	53	55	96.3

package UV::Timer;

our $VERSION = '1.900';

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

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

sub repeat {
    my $self = shift;
    return $self->_get_repeat() unless (@_);
    $self->_set_repeat(@_);
    return $self;
}

sub start {
    my $self = shift;
    Carp::croak("Can't start a closed handle") if ($self->closed()) ;
    my $timeout = shift(@_) || 0;
    my $repeat = shift(@_) || 0;
    if (@_) {
        $self->on('timer', shift);
    }
    my $res;
    my $err = do { #catch
        local $@;
        eval {
            $res = $self->_start($timeout, $repeat);
            1;
        }; #try
        $@;
    };
    Carp::croak($err) if $err; # throw
    return $res;
}
1;

__END__