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, $db_obj) = @_;
   9   my $data            = $db_obj->data_as_hash;
  10
  11   $::lxdebug->message(0, "Test job is being executed.");
  12
  13   die "Oh cruel world: " . $data->{exception} if $data->{exception};
  14
  15   return exists $data->{result} ? $data->{result} : 1;
  16 }
  17
  18 1;