Revision e4e46bf6
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| SL/DB/BackgroundJob.pm | ||
|---|---|---|
| 75 | 75 |
|
| 76 | 76 |
sub data_as_hash {
|
| 77 | 77 |
my $self = shift; |
| 78 |
|
|
| 79 |
$self->data(YAML::Dump($_[0])) if @_; |
|
| 80 |
|
|
| 78 | 81 |
return {} if !$self->data;
|
| 79 | 82 |
return $self->data if ref($self->{data}) eq 'HASH';
|
| 80 | 83 |
return YAML::Load($self->{data}) if !ref($self->{data});
|
Auch abrufbar als: Unified diff
SL::DB::BackgroundJob::data_as_hash auch als Writer benutzen können