CPAN::Groonga

package SMS::Send::Plivo;

use strict;
use warnings;

use 5.008_005;

use Carp;
use JSON::PP;
use WWW::Plivo::API;

use parent qw(SMS::Send::Driver);

our $VERSION = '0.01_02';
$VERSION = eval $VERSIO

   );

    if ( ($response->{code} >= 200) && ($response->{code} <= 204) ) {
        my $result = JSON::PP->new->utf8->decode( $response->{content} );

        if ( $result->{message_uuid} ) {
       

->{message_uuid};
        }
    }
    elsif ( $response->{code} == '400' ) {
        my $result = JSON::PP->new->utf8->decode( $response->{content} );
        if ( $result->{message} ) {
            c