Yet Another CPAN Grep

MetaCPAN-API-Tiny ( J/JL/JLUIS/MetaCPAN-API-Tiny-1.150270.tar.gz, JLUIS, 2015; MetaCPAN )

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

 warnings;
# ABSTRACT: (DEPRECATED) A Tiny API client for MetaCPAN

use Carp;
use JSON::PP 'encode_json', 'decode_json';
use HTTP::Tiny;


sub new {
    my ($class, @args) = @_;

    $#_ % 2 == 0

my $query_json = encode_json( $query );
    my $result     = $self->{ua}->request(
        'POST',
        "$base/$url",
        {
            headers => { 'Content-Type' => 'application/json' },

        content => $query_json,
        }
    );

    return $self->_decode_result( $result, $url, $query_json );
}

sub _decode_result {
    my $self = shift;
    my ( $result, $url, $original ) = @_