#!/usr/bin/perl

use strict;
use warnings;

use Qudo;
use MyApp::Worker::Santa;
my $qudo = Qudo->new(
    driver_class => 'Skinny',
    databases => [+{
        dsn      => 'dbi:mysql:qudo',
        username => 'root',
        password => '',
    }],
);

my @children = (
    {
        name    => 'masartz',
        present => 'cake',
    },
    {
        name    => 'nekokak',
        present => 'chocolate',
    },
);

$qudo->manager->global_register_hooks(qw/Qudo::Hook::Serialize::JSON/);

for my $child ( @children ){
    $qudo->enqueue("MyApp::Worker::Santa", { arg => $child });
}