Yet Another CPAN Grep

WebService-ImKayac-Simple ( M/MO/MOZNION/WebService-ImKayac-Simple-0.10.tar.gz, MOZNION, 2014; MetaCPAN )

WebService-ImKayac-Simple/lib/WebService/ImKayac/Simple.pm ( view source; MetaCPAN )

s;
use Carp;
use Digest::SHA1 qw/sha1_hex/;
use Encode qw/encode_utf8 decode_utf8/;
use Furl;
use JSON ();

use constant IM_KAYAC_BASE_URL => 'http://im.kayac.com/api/post/';

our $VERSION = '0.10';

s) {
        croak "[ERROR] " . $res->status_line;
    }

    my $json = JSON::decode_json($res->{content});
    if (my $error = $json->{error}) {
        croak "[ERROR] $error";
    }
}

1;
__END__