|
|
|
|
@ -1119,31 +1119,6 @@ sub get_cached_data{
|
|
|
|
|
return (-e $self->data_cache_file) ? retrieve($self->data_cache_file) : {};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub replace_cached_data{
|
|
|
|
|
my($self,$data_callback,$restored) = @_;
|
|
|
|
|
$restored //= $self->get_cached_data;
|
|
|
|
|
$data_callback->($restored);
|
|
|
|
|
store $restored,$self->data_cache_file;
|
|
|
|
|
return $restored;
|
|
|
|
|
}
|
|
|
|
|
sub get_cached_data{
|
|
|
|
|
my($self) = @_;
|
|
|
|
|
return (-e $self->data_cache_file) ? retrieve($self->data_cache_file) : {};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub replace_cached_data{
|
|
|
|
|
my($self,$data_callback,$restored) = @_;
|
|
|
|
|
$restored //= $self->get_cached_data;
|
|
|
|
|
$data_callback->($restored);
|
|
|
|
|
store $restored,$self->data_cache_file;
|
|
|
|
|
return $restored;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub get_cached_data{
|
|
|
|
|
my($self) = @_;
|
|
|
|
|
return (-e $self->data_cache_file) ? retrieve($self->data_cache_file) : {};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub replace_cached_data{
|
|
|
|
|
my($self,$data_callback,$restored) = @_;
|
|
|
|
|
$restored //= $self->get_cached_data;
|
|
|
|
|
|