Revision 8e115155
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
SL/DB/BackgroundJobHistory.pm | ||
---|---|---|
1 |
# This file has been auto-generated only because it didn't exist. |
|
2 |
# Feel free to modify it at will; it will not be overwritten automatically. |
|
3 |
|
|
4 | 1 |
package SL::DB::BackgroundJobHistory; |
5 | 2 |
|
6 | 3 |
use strict; |
... | ... | |
10 | 7 |
|
11 | 8 |
__PACKAGE__->meta->initialize; |
12 | 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 |
|
|
13 | 16 |
1; |
Auch abrufbar als: Unified diff
RDBO BackgroundJob(History): Refactoring von Status-Strings