File Coverage

blib/lib/SMS/Matrix.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package SMS::Matrix;

# ABSTRACT: Module for the SMS::Matrix API

use warnings;
use strict;

use LWP::UserAgent;
use HTTP::Request::Common;
use JSON();
## use Data::Dumper;

our $VERSION = '1.01';

####################################################

my @attrs = qw(username password);

for my $attr ( @attrs )
{
 no strict 'refs';
 *{ __PACKAGE__ . '::' . $attr } = sub
   {
    my ($self, $value) = @_;

    my $key = '__' . $attr . '__';
    $self->{$key} = $value if @_ == 2;
    return $self->{$key};
   };
}

####################################################

sub new
{
 my ($class, %param) = @_;

 my $self = bless {}, $class;
 for my $attr ( @attrs )
  {
   if (exists $param{$attr}) {  $self->$attr( $param{$attr} ); }
  }
 return $self;
}

####################################################

sub send
{
 my ($self, $rqp) = @_;

 if ($rqp->{txt} eq '')
  {
   $self->errstr ('Message text is blank');
   $self->status (1001);
   return;
  }

 my $json_txt = JSON::to_json ($rqp);
 if ($json_txt eq '')
  {
   $self->errstr ('JSON::to_json() returned NULL');
   $self->status (1000);
   return;
  }

 my $ua = LWP::UserAgent->new();
 my $res = $ua->request
  (
   POST $rqp->{url},
   Content_Type  => 'application/json',
   Content       => $json_txt
  );

 ## print Dumper($rqp) . "\n\n";
 ## print Dumper($res) . "\n\n";

 if ($res->is_error)
  {
   $self->errstr ($res->{_msg});
   $self->status ($res->{_rc});
   return;
  }
 my $resp = undef;
 eval { $resp = JSON::from_json ($res->content); };

 $self->errstr ($resp->{STATUSTXT});
 $self->status ($resp->{STATUSCODE});

 return $resp;
}

####################################################

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

 my $rqp =
  {
   'username' => $self->{__username__},
   'password' => $self->{__password__},
   'url'      => 'https://www.smsmatrix.com/matrix.json',
  };
 while (my ($key, $value) = each (%param))  { $rqp->{$key} = $value; }
 return $self->send ($rqp);
}

####################################################

sub send_tts
{
 my ($self, %param) = @_;

 my $rqp =
  {
   'username' => $self->{__username__},
   'password' => $self->{__password__},
   'url'      => 'https://www.smsmatrix.com/matrix_tts.json',
  };
 while (my ($key, $value) = each (%param))  { $rqp->{$key} = $value; }
 return $self->send ($rqp);
}

####################################################

sub get_balance
{
 my ($self, %param) = @_;

 my $rqp =
  {
   'username' => $self->{__username__},
   'password' => $self->{__password__},
   'url'      => 'https://www.smsmatrix.com/balance.json',
   'txt'      => 'x',
  };
 while (my ($key, $value) = each (%param))  { $rqp->{$key} = $value; }
 return $self->send ($rqp);
}

####################################################

sub is_success
{
 my ($self) = @_;

 my $s = $self->{__status__};
 return (($s >= 0) and ($s < 399));
}

####################################################

sub is_error
{
 my ($self) = @_;

 return ! $self->is_success();
}

####################################################

sub errstr
{
 my ($self,$message) = @_;

 $self->{__errstr__} = $message if @_ == 2;
 return $self->{__errstr__};
}

####################################################

sub status
{
 my ($self, $status) = @_;

 $self->{__status__} = $status if @_ == 2;
 return $self->{__status__};
}

####################################################


1; # End of Matrix::SMS

__END__