pl.pl

use 5.012;
use Minion;
use Minion::Backend::SQLite;

my $minion = Minion->new(SQLite => 'sqlite:test.db');
$minion->add_task(do_unique_stuff => sub {
    my ($job, @args) = @_;
    return $job->retry({delay => 10})
        unless my $guard = $minion->guard('fragile_backend_service', 7200, {limit => 1});
    say "DOING STUFF!!";
    sleep 1;
});
$minion->enqueue(do_unique_stuff => []) for 0..10;
say "doing stuff";
$minion->perform_jobs;
say "done";