Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision aba17eb1

Von Sven Schöling vor fast 12 Jahren hinzugefügt

  • ID aba17eb108de08afb421ca3be47c5ce4b0d2be44
  • Vorgänger 08d78ff5
  • Nachfolger ad8973b0

set_data Methode

Unterschiede anzeigen:

SL/DB/BackgroundJob.pm
5 5 
use DateTime::Event::Cron;
6 6 
use English qw(-no_match_vars);
7 7 

  		




  8
  
  
    
use SL::DB::MetaSetup::BackgroundJob;


  		




  9
  
  
    
use SL::DB::Manager::BackgroundJob;


  		




  
  8
  
    
require SL::DB::MetaSetup::BackgroundJob;


  		




  
  9
  
    
require SL::DB::Manager::BackgroundJob;


  		




  10
  10
  
    

  		




  11
  
  
    
use SL::DB::BackgroundJobHistory;


  		




  
  11
  
    
require SL::DB::BackgroundJobHistory;


  		




  12
  12
  
    

  		




  13
  13
  
    
use SL::System::Process;


  		




  14
  14
  
    

  		




  ......




  77
  77
  
    
  return {};


  		




  78
  78
  
    
}


  		




  79
  79
  
    

  		




  
  80
  
    
sub set_data {


  		




  
  81
  
    
  my ($self, %data) = @_;


  		




  
  82
  
    

  		




  
  83
  
    
  my $data = YAML::Load($self->data);


  		




  
  84
  
    
  $data->{$_} = $data{$_} for keys %data;


  		




  
  85
  
    
  $self->data(YAML::Dump($data));


  		




  
  86
  
    
}


  		




  
  87
  
    

  		




  80
  88
  
    
sub validate {


  		




  81
  89
  
    
  my ($self) = @_;


  		




  82
  90
  
    

  		












Auch abrufbar als:  Unified diff