view release on metacpan or  search on metacpan

lib/Data/SimpleKV.pm  view on Meta::CPAN

        seek($fh, 0, SEEK_SET);
        
        # 存储数据
        store_fd($self->{cache}, $fh) or die "Cannot store data: $!";
        
        # 确保数据写入磁盘
        $fh->flush();
        
        close $fh or die "Cannot close data file: $!";
        
        chmod 0644, $self->{data_file};
        $self->{dirty} = 0;
    };
    
    if ($@) {
        croak "Failed to save data: $@";
    }
    
    return 1;
}