File Coverage

blib/lib/SMS/ClickSend.pm

Criterion	Covered	Total	%
statement	24	72	33.3
branch	0	22	0.0
condition	0	11	0.0
subroutine	8	16	50.0
pod	6	8	75.0
total	38	129	29.4

package SMS::ClickSend;

use strict;
use 5.008_005;
our $VERSION = '0.02';

use Carp;
use LWP::UserAgent;
use JSON;
use MIME::Base64;
use HTTP::Request;
use vars qw/$errstr/;

sub errstr { $errstr }

sub new {
    my $class = shift;
    my %args = @_ % 2 ? %{$_[0]} : @_;

    $args{username} or croak 'username is required.';
    $args{api_key}  or croak 'api_key is required.';

    $args{ua} ||= LWP::UserAgent->new;

    return bless \%args, $class;
}

sub send {
    my $self = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;
    $self->request('send', 'GET', \%params);
}

sub reply {
    my $self = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;
    $self->request('reply', 'GET', \%params);
}

sub delivery {
    my $self = shift;
    my %params;
    if (scalar(@_) == 1 and ref($_[0]) ne 'HASH') {
        %params = (messageid => $_[0]);
    } else {
        %params = @_ % 2 ? %{$_[0]} : @_;
    }
    $self->request('delivery', 'GET', \%params);
}

sub balance {
    my $self = shift;
    my %params;
    if (scalar(@_) == 1 and ref($_[0]) ne 'HASH') {
        %params = (country => $_[0]);
    } else {
        %params = @_ % 2 ? %{$_[0]} : @_;
    }
    $self->request('balance', 'GET', \%params);
}

sub history {
    my $self = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;
    $self->request('history', 'GET', \%params);
}

sub request {
    my ($self, $url, $method, $params) = @_;

    $url = 'https://api.clicksend.com/rest/v2/' . $url . '.json';

    $params ||= {};
    $params->{method} = 'rest'; # we prefer rest

    my $uri = URI->new($url);
    $uri->query_form($params);

    my %headers = ();
    $headers{Authorization} = 'Basic ' . encode_base64($self->{username} . ':' . $self->{api_key}, '');

    my $req = HTTP::Request->new($method, $uri, HTTP::Headers->new(%headers));
    my $res = $self->{ua}->request($req);
    if (not $res->header('Content-Type') =~ /json/) {
        $errstr = $res->status_line;
        return;
    }

    return decode_json($res->decoded_content);
}

1;
__END__