use re '/saa';
use parent qw/Exporter/;
-our $VERSION = '0.001';
+our $VERSION = '0.002';
our @EXPORT_OK = qw/naodash_xlog naodash_user/;
our @EXPORT = @EXPORT_OK;
my $dir = $ENV{NAODASH_CACHE} || catdir tmpdir, 'naodash';
mkdir $dir or die "Cannot create cache directory: $!\n" unless -d $dir;
my $file = catfile $dir, $name;
- write_file $file, _get_xlog_from_server $name unless -f $file && time - (stat $file)[9] < 86400;
+ write_file $file, _get_xlog_from_server $name if ! -f $file || time - (stat $file)[9] >= 86_400;
scalar read_file $file
}