kivitendo/SL/BackgroundJob/Test.pm @ 79b7fc43
| ee71ba33 | Moritz Bunkus | package SL::BackgroundJob::Test;
|
||
| d099ba10 | Moritz Bunkus | use strict;
|
||
| ee71ba33 | Moritz Bunkus | use parent qw(SL::BackgroundJob::Base);
|
||
sub run {
|
||||
| f7c4665f | Moritz Bunkus | my ($self, $db_obj) = @_;
|
||
my $data = $db_obj->data_as_hash;
|
||||
| ee71ba33 | Moritz Bunkus | |||
$::lxdebug->message(0, "Test job is being executed.");
|
||||
| f7c4665f | Moritz Bunkus | |||
die "Oh cruel world: " . $data->{exception} if $data->{exception};
|
||||
return exists $data->{result} ? $data->{result} : 1;
|
||||
| ee71ba33 | Moritz Bunkus | }
|
||
1;
|