X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FBackgroundJob%2FTest.pm;h=c8c76db3694ecc5ecbf0ce24d5d97c7b664c3f9c;hb=2a51537014d67c1f97a37b18548506f3e15549b5;hp=f79a1b586f1467b25ec1e572da2949e65cd85f51;hpb=89c9ff022d3f13e27ba6bda085df15707fcfb0eb;p=kivitendo-erp.git diff --git a/SL/BackgroundJob/Test.pm b/SL/BackgroundJob/Test.pm index f79a1b586..c8c76db36 100644 --- a/SL/BackgroundJob/Test.pm +++ b/SL/BackgroundJob/Test.pm @@ -5,10 +5,14 @@ use strict; use parent qw(SL::BackgroundJob::Base); sub run { - my $self = shift; - my $db_obj = shift; + my ($self, $db_obj) = @_; + my $data = $db_obj->data_as_hash; $::lxdebug->message(0, "Test job is being executed."); + + die "Oh cruel world: " . $data->{exception} if $data->{exception}; + + return exists $data->{result} ? $data->{result} : 1; } 1;