package SMS::API::CMTelecom;
use 5.006;
use strict;
use warnings;
use LWP::UserAgent;
use JSON;
=head1 NAME
SMS::API::CMTelecom - SMS API for cmtelecom.com
=head1 VERSION
Version 0.01
=cut
our
t-Type' => 'application/json'],
encode_json $payload,
);
my $res = $self->{_ua}->request( $req );
if ($res->code == 200) {
my $result = decode_json $res->content();
n {
messages => $result->{messages},
};
}
my $result = eval { decode_json $res->content() };
return $self->_set_error_message($result->{details}) if ref $result eq 'HA