How do I set the HTTP User-Agent when using Search::Elasticsearch?

Question

I'm using Search::Elasticsearch to query MetaCPAN.

my $es = Search::Elasticsearch->new(
  cxn_pool => 'Static::NoPing',
  nodes    => 'api.metacpan.org:80',
);

my $scroller = $es->scroll_helper(
  index       => 'v0',
  type        => 'release',
  search_type => 'scan',
  scroll      => '2m',
  size        => $size,
  body        => {
    fields => [qw(author archive date)],
    query  => { range => { date => { gte => $date } } },
  },
);

This works ok, but I'd like to set the HTTP User-Agent header to a custom value so my requests can be identified if there's a problem. How do I do that with Search::Elasticsearch?

Answer 1

You can pass arguments to the handle constructor using handle_args. So for the default HTTP::Tiny you would use agent:

my $es = Search::Elasticsearch->new(
  cxn_pool => 'Static::NoPing',
  nodes    => 'api.metacpan.org:80',
  handle_args => { agent => "youragent/0.1" },
);