se Moo;
use Types::Standard qw<Str ArrayRef InstanceOf>;
use namespace::autoclean;
use Carp;
use JSON::MaybeXS 1.001000;
use Try::Tiny;
use HTTP::Tiny 0.014;
with qw/
MetaCPAN::API::Author
M
AN::API::VERSION || 'xx';
return [ agent => "MetaCPAN::API/$version" ];
},
);
my $JSON = JSON::MaybeXS->new(canonical => 1, utf8 => 1);
sub _build_ua {
my $self = shift;
return H
my $query_json = $JSON->encode( $query );
my $result = $self->ua->request(
'POST',
"$base/$url",
{
headers => { 'Content-Type' => 'application/json' },