-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
package SL::DB::BackgroundJobHistory;
use strict;
use SL::DB::MetaSetup::BackgroundJobHistory;
use SL::DB::Manager::BackgroundJobHistory;
+__PACKAGE__->meta->initialize;
+
+use constant SUCCESS => 'success';
+use constant FAILURE => 'failure';
+
+sub has_succeeded { $_[0] && (($_[0]->status || '') eq SUCCESS()) }
+sub has_failed { $_[0] && (($_[0]->status || '') eq FAILURE()) }
+
1;