CPAN::Groonga

use Log::ger;

use parent qw(Term::Shell);

use Color::ANSI::Util qw(ansifg);
use Data::Clean::ForJSON;
use Path::Naive qw(concat_and_normalize_path);
use Perinci::Sub::Util qw(err);
use Term::Detect:

  $text;
    }
}

sub _json_obj {
    state $json;
    if (!$json) {
        require JSON::MaybeXS;
        $json = JSON::MaybeXS->new->allow_nonref;
    }
    $json;
}

sub json_decode {
    my ($sel

@_;
    $self->_json_obj->decode($arg);
}

sub json_encode {
    my ($self, $arg) = @_;
    my $data = $cleanser->clone_and_clean($arg);
    #use Data::Dump; dd $data;
    $self->_json_obj->encode($da