Yet Another CPAN Grep

SMS-Send-KR-CoolSMS ( K/KE/KEEDI/SMS-Send-KR-CoolSMS-1.003.tar.gz, KEEDI, 2014; MetaCPAN )

SMS-Send-KR-CoolSMS/lib/SMS/Send/KR/CoolSMS.pm ( view source; MetaCPAN )

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

use DateTime;
use Digest::HMAC_MD5;
use HTTP::Tiny;
use JSON;
use String::Random;

our $URL     = "https://api.coolsms.co.kr/sms/1.1";
our $AGENT   = 'SMS-Sen

id response for GET request';
    if ( $res && $res->{success} ) {
        $ret{detail}  = decode_json( $res->{content} );
        $ret{reason}  = 'OK';
        $ret{success} = 1;
    }
    else {

id response for POST request';
    if ( $res && $res->{success} ) {
        $ret{detail} = decode_json( $res->{content} );
        $ret{reason}  = $ret{detail}{result_message};
        $ret{success} =