Yet Another CPAN Grep

SMS-Send-KR-APIStore ( K/KE/KEEDI/SMS-Send-KR-APIStore-0.003.tar.gz, KEEDI, 2017; MetaCPAN )

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


use warnings;

our $VERSION = '0.003';

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

use HTTP::Tiny;
use JSON;

our $URL     = "http://api.apistore.co.kr/ppurio/1";
our $AGENT   = 'SMS-Send-KR-APIStore/' . $

id response for POST request';
    if ( $res && $res->{success} ) {
        $ret{detail} = decode_json( $res->{content} );
        $ret{success} = 1 if $ret{detail}{result_code} eq '200';

        $re

valid response for GET request';
    if ( $res && $res->{success} ) {
        my $detail = decode_json( $res->{content} );

        $ret{success}     = 1 if $detail->{call_status} =~ m/^(4100|6600)$/;