Yet Another CPAN Grep

App-dbinfo ( P/PE/PERLANCAR/App-dbinfo-0.008.tar.gz, PERLANCAR, 2020; MetaCPAN )

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

aliases => {l=>{}},
    },
);

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

sub _connect {

        $row = $sth->fetchrow_arrayref;
            return undef unless $row;
        }
        __json_encode($row);
    };

    [200, "OK", $code_get_row, {stream=>1}];
}

$SPEC{dump_sqlite_table} =