File Coverage

blib/lib/SMS/Send/Retarus.pm

Criterion	Covered	Total	%
statement	31	47	65.9
branch	0	2	0.0
condition	2	2	100.0
subroutine	10	14	71.4
pod	2	2	100.0
total	45	67	67.1

use strict;
use warnings;
package SMS::Send::Retarus;
$SMS::Send::Retarus::VERSION = '0.001';
# ABSTRACT: SMS::Send driver for the Retarus SMS for Applications webservice

use Carp;
use HTTP::Tiny;
use URI::Escape qw( uri_escape );
use JSON::MaybeXS qw( decode_json encode_json JSON );
use Try::Tiny;
use Exception::Class (
    'SMS::Send::Retarus::Exception' => {
        fields  => [ 'response', 'status' ]
    },
);

use base 'SMS::Send::Driver';


sub new {
    my $class = shift;
    my $self = { @_ };

    $self->{$_}
        or croak "$_ missing"
            for qw( _login _password );

    return bless $self, $class;
}


sub send_sms {
    my ($self, %args) = @_;

    my $http = HTTP::Tiny->new(
        default_headers => {

            # to ensure the response is JSON
            'accept' => 'application/json; charset=utf-8',
            'content-type' => 'application/json; charset=utf-8',
        },
        timeout => 3,
        verify_ssl => 1,
    );

    my %message = (
        messages => [
            {
                text => $args{text},
                recipients => [
                    {
                        dst => $args{to},
                    }
                ],
            }
        ],
    );

    # add all underscore args without the underscore
    $message{$_} = $args{"_$_"}
        for map { $_ =~ s/^_//; $_; }
            grep { $_ =~ /^_/ } keys %args;

    my $response = $http->post(
        'https://'
        . uri_escape( $self->{_login} )
        . ':'
        . uri_escape( $self->{_password} )
        . '@sms4a.retarus.com/rest/v1/jobs',
        {
            content => encode_json(\%message),
        }
    );

    if ( $response->{success} ) {
        my $content;
        try {
            $content = decode_json( $response->{content} );
        }
        catch {
            SMS::Send::Retarus::Exception->throw(
                error => 'decoding of API response failed: ' . $_
            );
        };

        # return the API response which is a hashref which is always true and
        # conforms to the SMS::Send::Driver API but still enables a user to
        # get at additional data like the jobId
        return $content;
    }

    SMS::Send::Retarus::Exception->throw(
        error   => $response->{content},
        status  => $response->{status},
        # try to decode the body as it might contain an API error
        try { ( response => decode_json( $response->{content} ) ) },
    );
}


1;

__END__