Util.pm

packageMetaCPAN::Util;

use strict;
use warnings;

use constant DEBUG=> !!$ENV{METACPAN_EXAMPLES_DEBUG};

use Search::Elasticsearch;
use Sub::Exporter -setup=> { exports=> ['es'] };

subes {
return Search::Elasticsearch->new(
client=>'2_0::Direct',
cxn_pool=>'Static::NoPing',
nodes=>'https://fastapi.metacpan.org/v1',
send_get_body_as=>'POST',
 ( trace_to=>'Stdout' ) x !!(DEBUG),
 );
}

1;

=head1NAME

MetaCPAN::Util - Utilities for accessing MetaCPAN

=head1DESCRIPTION

Provides shared utility code for examples.

=head1FUNCTIONS

=head2es

Returns a L<Search::Elasticsearch> client configured for use with the
MetaCPAN API endpoint.

=head1ENVIRONMENT

=over4

=itemC<METACPAN_EXAMPLES_DEBUG>

When set to C<1>, enables output of verbose debugging information.

=back

=cut