199 |
} |
} |
200 |
|
|
201 |
if (my $data = retrieve($path)) { |
if (my $data = retrieve($path)) { |
202 |
$log->info("loaded lookup $path"); |
$log->info("loaded lookup $path ", -s $path, " bytes"); |
203 |
return $data; |
return $data; |
204 |
} else { |
} else { |
205 |
$log->logwarn("can't load lookup $database/", $args->{input}, "/", $args->{key}, " from $path: $!"); |
$log->logwarn("can't load lookup $database/", $args->{input}, "/", $args->{key}, " from $path: $!"); |
243 |
my $t = time(); |
my $t = time(); |
244 |
|
|
245 |
if (store $args->{data}, $path) { |
if (store $args->{data}, $path) { |
246 |
$log->info(sprintf("saved lookup $path in %.2fs", time() - $t)); |
$log->info(sprintf("saved lookup %s %d bytes in %.2fs", $path, -s $path, time() - $t)); |
247 |
return 1; |
return 1; |
248 |
} else { |
} else { |
249 |
$log->logwarn("can't save lookup to $path: $!"); |
$log->logwarn("can't save lookup to $path: $!"); |