199 |
$log->logdie("save_ds without cache_file -- did you called gs_get before?") unless ($self->{'cache_file'}); |
$log->logdie("save_ds without cache_file -- did you called gs_get before?") unless ($self->{'cache_file'}); |
200 |
|
|
201 |
foreach my $e (qw/ds current_filename headline/) { |
foreach my $e (qw/ds current_filename headline/) { |
202 |
$log->logconfess("missing $e") unless $arg->{$e}; |
$log->warn("missing $e") unless $arg->{$e}; |
203 |
} |
} |
204 |
|
|
205 |
$log->debug("creating storable cache file ",$self->{'cache_file'}); |
$log->debug("creating storable cache file ",$self->{'cache_file'}); |