Job Queues / Event Notifications
# Worker my $sth = $dbh->prepare( "select id,name,args from job where is_running = false and is_finished = false" ); $sth->execute; while (my ($id, $name, $args) = $sth->fetchrow_array) { $dbh->do("update job set is_running = true where id = ?", undef, $id); JobRunner->start($name, $args); $dbh->do("update job set is_running = false, is_finished = true where id = ?", undef, $id); }