X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FBackgroundJob%2FTest.pm;h=c8c76db3694ecc5ecbf0ce24d5d97c7b664c3f9c;hb=e23a8be01334e573ec40652efd9458414b9c6ebc;hp=f79a1b586f1467b25ec1e572da2949e65cd85f51;hpb=3ceb381944924a7b6a14d69361754422b8b49589;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;