use DateTime::Event::Cron;
use English qw(-no_match_vars);
-use SL::DB::MetaSetup::BackgroundJob;
-use SL::DB::Manager::BackgroundJob;
+require SL::DB::MetaSetup::BackgroundJob;
+require SL::DB::Manager::BackgroundJob;
-use SL::DB::BackgroundJobHistory;
+require SL::DB::BackgroundJobHistory;
use SL::System::Process;
return {};
}
+sub set_data {
+ my ($self, %data) = @_;
+
+ my $data = YAML::Load($self->data);
+ $data->{$_} = $data{$_} for keys %data;
+ $self->data(YAML::Dump($data));
+}
+
sub validate {
my ($self) = @_;