Yet Another CPAN Grep

WebService-Azure-Search ( S/SY/SYSCAT/WebService-Azure-Search-0.04.tar.gz, SYSCAT, 2016; MetaCPAN )

WebService-Azure-Search/lib/WebService/Azure/Search.pm ( view source; MetaCPAN )

package WebService::Azure::Search;
use 5.008001;
use strict;
use warnings;
use utf8;

use JSON;
use HTTP::Request;
use HTTP::Headers;
use LWP::UserAgent;
use URI;
use Try::Tiny;
use Carp;
use Encode '

n}) {
    $self->{setting}{admin} = $self->{admin};
  }

  $self->{params}{accept} = "application/json";

  try {
    $self->{params}{url} = sprintf(
      "%s/indexes/%s/docs/index?api-version=%s",


    my $json_query = JSON->new->encode($hashref);
    my $ua = LWP::UserAgent->new;
    my $req = HTTP::Request->new('POST' => $self->{params}{url});
    $req->content_type('application/json');
    $