drvtidy.pl

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;
}