sub add_names ($) { ## no critic (ProhibitSubroutinePrototypes)
my ($el) = @_;
+ return unless defined $el;
if (ref $el eq 'ARRAY') {
&add_names ($_) for @$el ## no critic (ProhibitAmpersandSigils)
} else {
sub create_job {
my (%args) = @_;
- $db->update('users', {lastjob => time});
+ $db->update('users', {lastjob => time}, {id => $args{owner}});
purge '/log/';
scalar $db->insert('jobs', \%args, {returning => 'id'})->list
}