Yet Another CPAN Grep

SMS-Send-IN-Textlocal ( I/IN/INDRADG/SMS-Send-IN-Textlocal-1.00.tar.gz, INDRADG, 2023; MetaCPAN )

SMS-Send-IN-Textlocal/lib/SMS/Send/IN/Textlocal.pm ( view source; MetaCPAN )

tlocal.in/send/ )
 
use 5.006;
use strict;
use warnings;
use LWP::UserAgent;
use URI::Escape;
use JSON;
 
use base 'SMS::Send::Driver';
 
our $VERSION = '1.00'; # VERSION
our $AUTHORITY = 'cpan:INDRAD

 my ( $self, $res ) = @_;
 
  # check status for success or failure
  
  my $json = decode_json $res->content;

  if ( $json->{'status'} eq 'failure' ) {
      return;
  } else {
      return 1;
  }