SL/DB/BackgroundJobHistory.pm

   1 package SL::DB::BackgroundJobHistory;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::BackgroundJobHistory;
   6 use SL::DB::Manager::BackgroundJobHistory;
   7
   8 __PACKAGE__->meta->initialize;
   9
  10 use constant SUCCESS => 'success';
  11 use constant FAILURE => 'failure';
  12
  13 sub has_succeeded { $_[0] && (($_[0]->status || '') eq SUCCESS()) }
  14 sub has_failed    { $_[0] && (($_[0]->status || '') eq FAILURE()) }
  15
  16 1;