Yet Another CPAN Grep

WebService-Qiita-V2 ( R/RI/RISOU/WebService-Qiita-V2-0.02.tar.gz, RISOU, 2018; MetaCPAN )

WebService-Qiita-V2/lib/WebService/Qiita/V2/Client/Base.pm ( view source; MetaCPAN )

package WebService::Qiita::V2::Client::Base;
use strict;
use warnings;

use JSON;
use LWP::UserAgent;
use HTTP::Request;
use URI;

use constant {
    API_URL => 'qiita.com/api/',
    API_VER => 'v2',

 $req->content_type('application/json');

    my $res = $self->ua->request($req);

    if ($res->code == 200) {
        my $result = ($res->content) ? JSON::decode_json($res->content) : "";
        re

plication/json');
    $req->content(JSON::encode_json $params);

    my $res = $self->ua->request($req);

    if ($res->code == 201) {
        my $result = ($res->content) ? JSON::decode_json($res->co