Yet Another CPAN Grep

App-mysqlinfo ( P/PE/PERLANCAR/App-mysqlinfo-0.001.tar.gz, PERLANCAR, 2017; MetaCPAN )

App-mysqlinfo/lib/App/mysqlinfo.pm ( view source; MetaCPAN )

l = %App::dbinfo::arg_detail;

sub __json_encode {
    state $json = do {
        require JSON::MaybeXS;
        JSON::MaybeXS->new->canonical(1);
    };
    $json->encode(shift);
}

sub _connect {