HashをJSON::XSでシリアライズして、Crypt::CBCで暗号化して、GZIPで圧縮して、それをBSONバイナリとしてMongoDBに保存するPerlコード。またその逆も。 - Debuginfo

MongoHQの通信はセキュアでありません。なのでhttpsのAPIを使って保存するか、もしくはアプリケーション側で暗号化して保存する方法があると思います。今回は後者でコードを書いてみました。 package Util; use Moo; use JSON::XS; use Crypt::CBC; use IO::Compress::Gzip qw(gzip $GzipError) ; use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ; use MongoDB::BSON::Binary; has cipher => ( is => 'ro', lazy => 1, builder => '_build_cipher', ); has key => ( is => 'ro', required => 1, ); sub _build_c