Yet Another CPAN Grep

SMS-Send-Mocean ( K/KI/KIANMENG/SMS-Send-Mocean-0.03.tar.gz, KIANMENG, 2019; MetaCPAN )

SMS-Send-Mocean/lib/SMS/Send/Mocean.pm ( view source; MetaCPAN )

05;
use strict;
use warnings;
use utf8;

use Carp;
use HTTP::Request::Common qw(POST);
use JSON qw(decode_json);
use LWP::UserAgent;
use URL::Encode qw(url_decode);
use XML::Hash::LX qw(xml2hash);

us

t}) eq 'json'
        ? 'json' : 'xml';

    my $response = $self->{ua}->request($request);

    if ($response->is_success) {
        my $content = ($format eq 'json')
            ? decode_json($respo

 {
        my ($error_code, $error_msg) = ('', '');

        if ($format eq 'json') {
            my $content = decode_json($response->decoded_content);
            $error_code = $content->{status};