client.pl

use strict;
use warnings;
use TheSchwartz::Moosified;
use DBD::SQLite;

my $dbh = DBI->connect("dbi:SQLite:dbname=test.db");
my $client = TheSchwartz::Moosified->new();
$client->databases([$dbh]);
$client->insert('My::Worker', { args1 => 1, args2 => 2 } );

worker.pl

package My::Worker;
use strict;
use warnings;
use base 'TheSchwartz::Moosified::Worker';
use YAML;

sub work {
	my ($class, $job) = @_;
	my $arg = $job->arg;
	warn Dump $arg;
	$job->completed;
}

package main;
use TheSchwartz::Moosified;
use DBD::SQLite;

my $dbh = DBI->connect("dbi:SQLite:dbname=test.db");
my $client = TheSchwartz::Moosified->new();
$client->databases([$dbh]);
$client->verbose( 1 );
$client->can_do('My::Worker');
$client->work();