artition_by/;
use List::MoreUtils qw/uniq/;
use Moo;
use Memoize;
use Log::Any qw//;
use DBI;
use JSON;
our $VERSION = '0.06';
has 'input_alphabet' => (
is => 'ro',
required => 1,
isa
default => sub {
Log::Any->get_logger()
},
);
has '_json' => (
is => 'rw',
required => 0,
default => sub {
JSON->new->canonical(1)->indent(0)->ascii(1)
},
);
sub BUILD {
->(@_);
});
$self->_dbh->sqlite_create_function( '_canonical', 1, sub {
# Since SQLite's json_group_array does not guarantee ordering,
# we sort the items in the list ourselves here.