Yet Another CPAN Grep

WWW-ORCID ( N/NI/NICS/WWW-ORCID-0.0402.tar.gz, NICS, 2019; MetaCPAN )

WWW-ORCID/lib/WWW/ORCID/API.pm ( view source; MetaCPAN )

use strict;
use warnings;

our $VERSION = 0.0402;

use Class::Load qw(try_load_class);
use JSON qw(decode_json);
use Sub::Quote qw(quote_sub);
use Carp;
use Moo::Role;
use namespace::clean;

with 'WWW

 $headers = {'Accept' => 'application/json'};
    my $res = $self->_t->post_form($url, $opts, $headers);

    if ($res->[0] eq '200') {
        return decode_json($res->[2]);
    }
    $self->_set_las

 $headers->{'Accept'} = 'application/vnd.orcid+json';
    }
    if ($add_content_type) {
        $headers->{'Content-Type'} = 'application/vnd.orcid+json';
    }
    $headers;
}

sub _clean {
    my (

WWW-ORCID ( N/NI/NICS/WWW-ORCID-0.0402.tar.gz, NICS, 2019; MetaCPAN )

WWW-ORCID/lib/WWW/ORCID/MemberAPI.pm ( view source; MetaCPAN )

D::MemberAPI;

use strict;
use warnings;

our $VERSION = 0.0402;

use Moo::Role;
use JSON qw(decode_json encode_json);
use namespace::clean;

with 'WWW::ORCID::API';

has read_limited_token => (is =>

ath = shift;
    my $data = shift;
    my $opts = ref $_[0] ? $_[0] : {@_};
    my $body = encode_json($data);
    my $url  = _url($self->api_url, $path, $opts);
    my $res  = $self->_t->post($url, $

encode_json($data);
    my $url  = _url($self->api_url, $path, $opts);
    my $res  = $self->_t->put($url, $body, _headers($opts, 1, 1));
    if ($res->[0] eq '200') {
        return decode_json($res-