CPAN::Groonga

se Carp qw();
use File::Find::Rule;
use File::ShareDir qw();
use IO::Zlib;
use IPC::Cmd qw();
use JSON qw();
use List::Util qw();
use List::MoreUtils qw();
use MCE;
use Number::Format qw();
use Path::

--#
log_info create anno.json

if [ -e [% opt.data.0.dir -%]/anno.json ]; then
    cp [% opt.data.0.dir -%]/anno.json anno.json;
else
    if [ -e [% opt.data.0.dir -%]/cds.json ]; then
        cp [% o

 -%]/cds.json cds.json;
    else
        spanr gff --tag CDS \
            [% opt.data.0.dir -%]/*.gff \
            -o cds.json
    fi

    if [ -e [% opt.data.0.dir -%]/repeat.json ]; then
        c

.dir -%]/repeat.json repeat.json;
    else
        spanr gff \
            [% opt.data.0.dir -%]/*.rm.gff \
            -o repeat.json
    fi

    # create empty cds.json or repeat.json
    spanr geno

ber larger than this', { default => 0 }, ],
        [ 'debug',        'write a file of exactmatch.json for debugging', ],
        { show_defaults => 1, }
    );
}

sub usage_desc {
    return "egaz ex

xactmatch.json
    #----------------------------#
    # YAML::Syck can't Dump Tie::IxHash
    if ($opt->{debug}) {
        Path::Tiny::path("exactmatch.json")->spew(
            JSON::to_json(