File Coverage

blib/lib/SMS/Send/CSoft.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	14	14	100.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	69	69	100.0

use strict;
use warnings;
package SMS::Send::CSoft;
BEGIN {
  $SMS::Send::CSoft::VERSION = '1.111490';
}

# ABSTRACT: SMS::Send driver to send via the Connection Software service


use 5.006;
use SMS::Send::Driver;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

our @ISA = qw/SMS::Send::Driver/;
our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();

our $URL = 'https://www.csoft.co.uk/sendsms';


sub new {
  my $pkg = shift;
  my %p = @_;
  exists $p{_login} or die $pkg."->new requires _login parameter\n";
  exists $p{_password} or die $pkg."->new requires _password parameter\n";
  exists $p{_verbose} or $p{_verbose} = 1;
  my $self = \%p;
  bless $self, $pkg;
  $self->{_ua} = LWP::UserAgent->new();
  return $self;
}

sub send_sms {
  my $self = shift;
  my %p = @_;
  $p{to} =~ s/^\+//;
  $p{to} =~ s/[- ]//g;

  my $response = $self->{_ua}->post($URL,
                                    {
                                     Username => $self->{_login},
                                     PIN => $self->{_password},
                                     Message => $p{text},
                                     SendTo => $p{to},
                                    });
  unless ($response->is_success) {
    my $s = $response->as_string;
    warn "HTTP failure: $s\n" if ($self->{_verbose});
    return 0;
  }
  my $s = $response->as_string;
  $s =~ s/\r?\n$//;
  $s =~ s/^.*\r?\n//s;
  unless ($s =~ /Message Sent OK/i) {
    warn "Failed: $s\n" if ($self->{_verbose});
    return 0;
  }
  return 1;
}

1;


__END__