Revision 9e4a9fec
Von Moritz Bunkus vor etwa 10 Jahren hinzugefügt
| SL/DB/BackgroundJob.pm | ||
|---|---|---|
|
sub set_data {
|
||
|
my ($self, %data) = @_;
|
||
|
|
||
|
my $data = YAML::Load($self->data);
|
||
|
$data->{$_} = $data{$_} for keys %data;
|
||
|
$self->data(YAML::Dump($data));
|
||
|
$self->data(YAML::Dump({
|
||
|
%{ $self->data_as_hash },
|
||
|
%data,
|
||
|
}));
|
||
|
|
||
|
$self;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
SL::DB::BackgroundJob: refactoring von set_data für mehr programmatische Sicherheit
$self->data kann durchaus leer sein, und dann gibt YAML::Load schlicht
einen leeren String und keine Hashref zurück.
Daher $self->data_as_hash benutzen, das bereits für die meisten Fälle
gewappnet ist. Außerdem einfachere Hash-Zuweisung.