Run some commands via Minion

batch_jobs.pl

#!/opt/perl

use Mojolicious::Lite;

app->log->level("debug");

plugin Minion => { SQLite => 'sqlite:test.db' };

app->minion->add_task(run => sub {
    my ($job, @args) = @_;

    my ($ret, $msg);

    $job->app->log->info("Before $args[0]");

    eval {
        $ret = system(@args) == 0 or die("system: $args[0]: $!");
    };
    $job->app->log->info("After $args[0]");

    $job->finish({ ret => $ret, msg => $msg // "Fine" });
});


app->start;

package Mojolicious::Command::run_commands;
use Mojo::Base 'Mojolicious::Command';

has description => 'Run commands';
has usage       => "Usage: APPLICATION run_commands\n";

sub run {
  my ($self, @args) = @_;

  # $args[0] is the file

  say($self->app->minion->enqueue(run => ["echo", "joy"]));
}

1;