This module represents a response from Nexmo.
use Nexmo::SMS::Response; my $nexmo = Nexmo::SMS::Response->new( json => '{ "message-count":"1", "messages":[ { "status":"4", "message-id":"message001", "client-ref":"Test001 - Reference", "remaining-balance":"20.0", "message-price":"0.05", "error-text":"" } ] }', ); for my $message ( $response ) { print $message->status; }
create a new object
my $foo = Nexmo::SMS::Response->new( json => '{ "message-count":"1", "messages":[ { "status":"4", "message-id":"message001", "client-ref":"Test001 - Reference", "remaining-balance":"20.0", "message-price":"0.05", "error-text":"" } ] }', );
returns the list of messages included in the response. Each element is an object of Nexmo::SMS::Response::Message.
my @messages = $response->messages;
return the "last" error as string.
print $response->errstr;
returns 1 if all messages have a status = 0, undef
otherwise.
Returns 1 if an error occured, 0 otherwise...
These attributes are available for Nexmo::SMS::TextMessage
objects:
$nexmo->status( 'status' ); my $status = $nexmo->status;