Recurring Mojo::IOLoop event with Mojo::IOLoop::ForkCall

forkcall_recurring.pl

use Mojo::Base -strict;
use Mojo::IOLoop::ForkCall;

my $fc = Mojo::IOLoop::ForkCall->new;

Mojo::IOLoop->recurring(1 => sub {
    say(sprintf("%s: %s", scalar(localtime), "Ping"));
});

Mojo::IOLoop->recurring(5 => sub {
    $fc->run(
      sub { sleep 5; return [ 1, `date` ] },
      sub { 
        my ($fc, $err, $ret) = @_;

        $ret = $ret->[0];

        say("Got: $ret");
      }
    );
});

Mojo::IOLoop->start;