view release on metacpan or  search on metacpan

bin/pplquery  view on Meta::CPAN

    print STDERR "pplquery: $message\n";
    exit 1;
}
exit $exit_status;

sub main {
    my ($argv) = @_;
    @$argv = map { OpenSearch::PPLQuery::decode_utf8($_, 'command-line argument') } @$argv;
    my %options = (format => 'table', max_width => 0);
    my %cli;
    local @ARGV = @$argv;
    my ($parsed, $usage) = describe_options(
        'Usage: %c [options] FILE|-',
        ['url|u=s' => 'OpenSearch base URL'],
        ['user|U=s' => 'Basic-auth username'],
        ['password-file|p=s' => 'Read the Basic-auth password from a file'],
        ['ca-file=s' => 'CA certificate for HTTPS verification'],
        ['insecure' => 'Disable HTTPS certificate and hostname verification'],
        ['connection-file|c=s' => 'Read one connection header from a file'],
        ['format|f=s' => 'Output format: table, json, or csv'],
        ['max-width|w=i' => 'Truncate table cells to N terminal columns'],