NAME

LibreCat::JobQueue - a job queue for LibreCat processes

SYNOPSIS

    use LibreCat::JobQueue;

    my $queue = LibreCat::JobQueue->new;

    my $job = $queue->add_job('mailer', {
            to => 'patrick.hochstenbach@ugent.be' ,
            from => 'patrick.hochstenbach@ugent.be' ,
            subject => 'test' ,
            body => 'test' ,
    });

    while (1) {
        my $s        = $queue->job_status($job);
        my $running  = $s->running;
        print "%s is running? %s\n" , $job , $running ? 'YES' : NO;
        sleep(1);
    }