gistfile1.txt

sub __set_timer {
    my ($ptrEvID, %options) = @_;
    my ($secAfter, $secInterval, $callback) = @options{qw/after interval cb/};
    return unless $secAfter or $secInterval;
    $$ptrEvID
        = $secAfter
        ? Mojo::IOLoop->timer(
        $secAfter => $secInterval
        ? sub {$callback->(); $$ptrEvID = Mojo::IOLoop->recurring($secInterval => $callback)}
        : $callback
        )
        : Mojo::IOLoop->recurring($secInterval => $callback);
    return 1;
}