CPAN::Groonga

ault_http_client->default_headers(
        HTTP::Headers->new(
            Accept => 'application/json'
        )
    );
    $default_http_client->agent($user_agent);
    $default_http_client->timeout

package Mslm::Common;

use strict;
use warnings;
use LWP::UserAgent;
use JSON;
use URI;
use Exporter qw(import);
our @EXPORT_OK = qw($default_base_url $default_user_agent $default_api_key DEFAULT_TIME

eq);
    if ( $response->is_success ) {
        my $decoded_json = decode_json( $response->decoded_content );
        return ( $decoded_json, '' );
    }
    if ( $response->code == HTTP_TOO_MANY_REQU

_base_url $default_user_agent $default_api_key DEFAULT_TIMEOUT);
use URI;
use LWP::UserAgent;
use JSON;

our $send_api_path    = '/api/otp/v1/send';
our $verify_api_path  = '/api/otp/v1/token_verify';

ault_http_client->default_headers(
        HTTP::Headers->new(
            Accept => 'application/json'
        )
    );
    $default_http_client->agent($user_agent);
    $default_http_client->timeout

   );
    my $encoded_json_data = encode_json($otp_send_req);
    my ( $response, $msg ) =
      $common_client->req_and_resp( $http_client, 'POST', $reqUrl,
        $encoded_json_data, user_agent => 

ault_http_client->default_headers(
        HTTP::Headers->new(
            Accept => 'application/json'
        )
    );
    $default_http_client->agent($user_agent);
    $default_http_client->timeout