/ 
SMS-Send-AT-TMobile-0.002
River stage zero No dependents
/ SMS::Send::AT::TMobile

NAME

SMS::Send::AT::TMobile - SMS::Send driver for the T-Mobile Austria SMSC service

VERSION

version 0.002

SYNOPSIS

use SMS::Send;
my $sender = SMS::Send->new('AT::TMobile',
    _login    => 'foo',
    _password => 'bar',
);

my $sent = $sender->send_sms(
    '_from' => '43676123456789' || 'CUSTOMTEXT',
    'to'    => '43676012345678',
    'text'  => 'This is a test message',
);

# Did the send succeed.
if ( $sent ) {
    print "Message sent ok\n";
} else {
    print 'Failed to send message: ', $@->{as_string}, "\n";
}

METHODS

send_sms

Is called by "send_sms" in SMS::Send and takes the additional argument '_from' which defines the sender phone number or text.

Returns true if the message was successfully sent.

Returns false if an error occurred and $@ is set to a hashref of the following info:

{
    as_string  => '', # HTTP POST response as a string
}

Throws an exception if a fatal error like a http timeout in the underlying connection occurred.

AUTHOR

Alexander Hartmaier <abraxxa@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Alexander Hartmaier.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.