SennaStore for Perl でけた

CodeReposのアカウントをいただけたので、コミットした。

http://coderepos.org/share/changeset/4356

use Senna;
use Senna::Constants qw(SEN_CTX_USEQL);

my $db  = Senna::DB->open(path => '/path/to/senna.db');
my $ctx = Senna::Ctx->open(db => $db, flags => SEN_CTX_USEQL);

$ctx->send(<<END_QL);
(+ 1 1)
END_QL
my $data = $ctx->recv;
# $data == 2

とかで。

パースはJSON::AnyとかText::CSV_XSとかで。

これでSennaStoreを使う覚悟がちょっとできてきた。

O/Rマッパー的なやつはやっぱり欲しいかもなぁ。