minion.pl

#!/usr/bin/env perl

use Mojolicious::Lite;
use Time::HiRes qw( time );

plugin Minion => {
    SQLite => 'sqlite:' . app->home->child('minion.db'),
};

app->minion->add_task(
    ping => sub {
        my ( $job, $url ) = @_;
        my $start = time;
        my $tx = $job->app->ua->head( $url );
        my $elapsed = time - $start;
        $job->app->log->info(
            sprintf 'Fetching %s took %.3f seconds', $url, $elapsed
        );
        $job->finish( $elapsed );
    }
);

app->start;

step-01-run_worker.sh

perl minion.pl worker

step-02-enqueue_jobs.sh

perl minion.pl job -e ping -a '["http://mojolicious.org"]'
perl minion.pl job -e ping -a '["http://mojolicious.io"]'
perl minion.pl job -e ping -a '["http://google.com"]'
perl minion.pl job -e ping -a '["http://example.com"]'