The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

SYNOPSIS

This module simplifies sending SMS through the Nexmo API.

    use Nexmo::SMS;

    my $nexmo = Nexmo::SMS->new(
        server   => 'https://rest.nexmo.com/sms/json',
        username => 'testuser1',
        password => 'testpasswd2',
    );
    
    my $sms = $nexmo->sms(
        text     => 'This is a test',
        from     => 'Test02',
        to       => '452312432',
    ) or die $nexmo->errstr;
    
    my $response = $sms->send || die $sms->errstr;
    
    if ( $response->is_success ) {
        print "SMS was sent...\n";
    }

METHODS

new

create a new object

    my $foo = Nexmo::SMS->new(
        server   => 'https://rest.nexmo.com/sms/json',
        username => 'testuser1',
        password => 'testpasswd2',
    );

Those parameters are optional and they are used as defaults for the message objects

sms

Create a new message object or returns undef.

    my $sms = $nexmo->sms(
        text     => 'This is a test',
        from     => 'Test02',
        to       => '452312432',
    ) or die $nexmo->errstr;

Send a binary message

    my $binary = $nexmo->sms(
        type     => 'binary',
        udh      => '06050415811581',   # hex encoded udh
        body     => '0011223344556677', # hex encoded body
        from     => 'Test02',
        to       => '452312432',
    ) or die $nexmo->errstr;

errstr

return the "last" error as string.

    print $nexmo->errstr;

get_balance

  my $balance = $nexmo->get_balance;

get_pricing

Not implemented yet...

Attributes

These attributes are available for Nexmo::SMS::TextMessage objects. For each attribute there is a getter/setter:

  $nexmo->server( 'servername' );
  my $server = $nexmo->server;
  • password

  • server

  • username

ACKNOWLEDGEMENTS

Jui-Nan Lin added support for Unicode messages, thanks! (see https://github.com/reneeb/perl-Nexmo-SMS/pull/1/files)