Yet Another CPAN Grep

WebService-Moodle-Simple ( I/IL/ILLY/WebService-Moodle-Simple-0.06.tar.gz, ILLY, 2017; MetaCPAN )

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

uest;
use JSON;
use List::Util qw/first/;
use LWP::UserAgent;
use Moo;
use Ouch;
use URI;
use Sys::SigAction qw( timeout_call );


# ABSTRACT: API client for Stripe


my $REST_FORMAT = 'json';
# https

      my $req = HTTP::Request->new (GET => $dns_uri);
            $req->content_type('application/json');

            my $lwp = LWP::UserAgent->new;
            $lwp->timeout($timeout);
            $

s_uri->query_form( $params );

    my $res = $self->rest_call($dns_uri);

    my $response = from_json($res->content);

    unless (ref($response) eq 'ARRAY') {
        return { ok => 0, msg => $respo