File Coverage

blib/lib/SMS/Send/WebSMS.pm

Criterion	Covered	Total	%
statement	25	39	64.1
branch	0	4	0.0
condition	2	2	100.0
subroutine	8	9	88.8
pod	2	2	100.0
total	37	56	66.0

use strict;
use warnings;
package SMS::Send::WebSMS;
$SMS::Send::WebSMS::VERSION = '0.001';
# ABSTRACT: SMS::Send driver for the WebSMS service

use Carp;
use HTTP::Tiny;
use URI::Escape qw( uri_escape );
use JSON::MaybeXS qw( decode_json encode_json JSON );

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 and not the XML default
            'accept' => 'application/json; charset=utf-8',
            'content-type' => 'application/json; charset=utf-8',
        },
        timeout => 3,
        verify_ssl => 1,
    );

    # remove leading +
    ( my $recipient = $args{to} ) =~ s/^\+//;

    my %message = (
        messageContent          => $args{text},
        recipientAddressList    => [ $recipient ],
    );

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

    my $response = $http->post(
        'https://'
        . uri_escape( $self->{_login} )
        . ':'
        . uri_escape( $self->{_password} )
        . '@api.websms.com/rest/smsmessaging/text',
        {
            content => encode_json(\%message),
        }
    );

    # for example a timeout error
    die $response->{content}
        unless $response->{success};

    my $response_message = decode_json( $response->{content} );

    # https://websms.at/entwickler/apis/rest-sms-api#dev-rest-statuscodes
    return 1
        if $response_message->{statusCode} =~ /^20\d\d/;

    $@ = $response_message;

    return 0;
}

1;

__END__