File Coverage

blib/lib/SMS/Send/NexmoUnicode.pm

Criterion	Covered	Total	%
statement	13	38	34.2
branch	0	12	0.0
condition			n/a
subroutine	5	9	55.5
pod	2	2	100.0
total	20	61	32.7

package SMS::Send::NexmoUnicode;

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

use vars qw{$VERSION};
BEGIN {
   $VERSION = '0.01';
}

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

   foreach(qw/username password type from/) {
      Carp::croak("No $_ specified") unless(defined $params{"_$_"});
   }

   my $self = bless { %params }, $class;

   return $self;
}

sub send_sms {
   my $self   = shift;
   my %params = @_;
   my %options;

   # Get the message and destination
   my $message   = $self->_MESSAGE( $params{text} );
   my $recipient = $self->_TO( delete $params{to} );

   my $nexmo = Nexmo::SMS->new(
	   server => 'http://rest.nexmo.com/sms/json',
	   username => $self->{"_username"},
	   password => $self->{"_password"},
	   );

   my $sms = $nexmo->sms(
	   text => $message,
	   to => $recipient,
	   type => $self->{"_type"},
	   from => $self->{"_from"},
	   ) or die $nexmo->errstr;

   if ('http' eq $self->{'_proxy_type'}) {
       $sms->user_agent->proxy(['http'], 'http://' . $self->{'_proxy_host'} . ':' . $self->{'_proxy_port'});
   }

   my $res = $sms->send;

   return $res->is_success;
}

sub _MESSAGE {

  my $class = ref $_[0] ? ref shift : shift;
  my $message = shift;
  unless ( length($message) <= 160 ) {
    Carp::croak("Message length limit is 160 characters");
  }

  return $message;
}

sub _TO {
  my $class = ref $_[0] ? ref shift : shift;
  my $to = shift;

  # International numbers need their + removed
  $to =~ y/0123456789//cd;

  return $to;
}


1;
__END__