CPAN::Groonga

package SmsAero;

use strict;
use warnings;
use JSON;
use LWP::UserAgent;
use HTTP::Request;
use URI::Escape;
use Email::Valid;
use Time::Piece;
use Log::Log4perl qw(:easy);
use MIME::Base64;

our $VE

l with data ", encode_json($data));

        my $req = HTTP::Request->new(
            'POST',
            $url,
            [
                'Content-Type' => 'application/json',
                'Au

     ],
            encode_json($data || {})
        );

        my $res = $self->{_ua}->request($req);

        if ($res->is_success) {
            my $content = decode_json($res->content);