cometrue.pl

#!/usr/bin/perl 

use strict;
use warnings;
use Qudo;

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

$qudo->manager->register_plugins(qw/MyApp::Worker::Plugin::PreMessage/);
$qudo->manager->global_register_hooks(qw/Qudo::Hook::Serialize::JSON/);
$qudo->work;