SMS::Send::TW::ShareSMS - SMS::Send driver for www.ShareSMS.com

  use SMS::send;

  my $sender = SMS::Send->new('TW::ShareSMS',
                  _username   => 'UserName',
                  _password   => 'Password',
                  _language   => 'E',
                  _region     => 1

                );

  my $sent = $sender->send_sms(
                  text => 'My very urgent message',
                  to   => '0912345678',
             );

package SMS::Send::TW::ShareSMS;

use strict;
use Carp;
use LWP::UserAgent;
use base 'SMS::Send::Driver';

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

# Preloaded methods go here.



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

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

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

   return $self;
}

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

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

#   foreach(qw/to text/) {
#      Carp::croak("No $_ specified") unless(defined $params{"$_"});
#   }

   my $ua = LWP::UserAgent->new(
      agent => __PACKAGE__." v. $VERSION",
   );
   
   
   my $response = $ua->post('http://www.sharesms.com/api/SendSMS.php',
   				[  CID => $self->{"_username"},
        	                   CPW => $self->{"_password"},
                	           L => $self->{"_language"},
                        	   N => $recipient,
                   		   M => $message,
                	           W => $self->{"_region"}, ]);
   return $response->content;
}

sub _MESSAGE {
  use bytes;
  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__
# Below is stub documentation for your module. You'd better edit it!