CPAN::Groonga

List nesting, among other things, it's hard to be exactly
        # precise about the size of the JSON serialization, but this will get
        # us pretty close.
        my $featSize     = $self->{me

   formatVersion => 1
        };

    $self->store->put( 'trackData.'.( $self->{compress} ? 'jsonz' : 'json' ), $trackData);

}

sub writeHistograms {
    my ( $self ) = @_;
    #this series of number

 my $getStart = $attrs->makeGetter("start");
    my $getEnd = $attrs->makeGetter("end");

    my $jsonStore = $self->store;
    my $refEnd = $self->lazyNCList->maxEnd || 0;
    my $featureCount = $sel

istChunkSize);
        for (my $k = 0; $k <= $#{$chunks}; $k++) {
            $jsonStore->put("hist-$histBases-$k" . $jsonStore->ext,
                            $chunks->[$k]);
        }
        push

 Bio::JBrowse::Store::NCList::JSONFileStorage;
BEGIN {
  $Bio::JBrowse::Store::NCList::JSONFileStorage::AUTHORITY = 'cpan:RBUELS';
}
{
  $Bio::JBrowse::Store::NCList::JSONFileStorage::VERSION = '0.1';

;
use JSON 2 ();
use IO::File;
use Fcntl ":flock";
use PerlIO::gzip;

use constant DEFAULT_MAX_JSON_DEPTH => 2048;


sub new {
    my ($class, $outDir, $compress, $opts) = @_;

    # create JSON objec

   my $json = JSON->new->relaxed->max_depth( DEFAULT_MAX_JSON_DEPTH );
    # set opts
    if (defined($opts) and ref($opts) eq 'HASH') {
        for my $method (keys %$opts) {
            $json->$meth

end: 6, strand: 1},
            ...
        ]

    we can represent them more compactly (e.g., in JSON) something like this:

        class = ["start", "end", "strand"]

        [
            [1, 2, -