190 |
$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'}); |
191 |
|
|
192 |
foreach my $e (qw/ds current_filename headline/) { |
foreach my $e (qw/ds current_filename headline/) { |
193 |
$log->logdie("missing $e") unless $arg->{$e}; |
$log->logconfess("missing $e") unless $arg->{$e}; |
194 |
} |
} |
195 |
|
|
196 |
$log->debug("creating storable cache file ",$self->{'cache_file'}); |
$log->debug("creating storable cache file ",$self->{'cache_file'}); |