SL/BackgroundJob/Test.pm

   1 package SL::BackgroundJob::Test;
   2
   3 use strict;
   4
   5 use parent qw(SL::BackgroundJob::Base);
   6
   7 sub run {
   8   my $self   = shift;
   9   my $db_obj = shift;
  10
  11   $::lxdebug->message(0, "Test job is being executed.");
  12 }
  13
  14 1;