SL/BackgroundJob/Base.pm

   1 package SL::BackgroundJob::Base;
   2
   3 use strict;
   4
   5 use parent qw(Rose::Object);
   6
   7 use SL::DB::BackgroundJob;
   8
   9 sub create_standard_job {
  10   my $self_or_class = shift;
  11   my $cron_spec     = shift;
  12
  13   my $package       = ref($self_or_class) || $self_or_class;
  14   $package          =~ s/SL::BackgroundJob:://;
  15
  16   my %params        = (cron_spec    => $cron_spec || '* * * * *',
  17                        type         => 'interval',
  18                        active       => 1,
  19                        package_name => $package);
  20
  21   my $job = SL::DB::Manager::BackgroundJob->find_by(package_name => $params{package_name});
  22   if (!$job) {
  23     $job = SL::DB::BackgroundJob->new(%params)->update_next_run_at;
  24   } else {
  25     $job->assign_attributes(%params)->update_next_run_at;
  26   }
  27
  28   return $job;
  29 }
  30
  31 1;