Yet Another CPAN Grep

MetaCPAN-Clients ( S/SZ/SZABGAB/MetaCPAN-Clients-1.00.tar.gz, SZABGAB, 2020; MetaCPAN )

MetaCPAN-Clients/bin/metacpan_old.pl ( view source; MetaCPAN )

odule have new versions as well - if a module is maintained.

=cut

use LWP::UserAgent;
use JSON qw(from_json);
use Data::Dumper qw(Dumper);

print Dumper get('1995-10-05T00:00:00', '2095-10-10T00:00:

	  "size" : $limit
	}
	});

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

	if ($res->is_success) {
		my $result = from_json $res->content;
		return $result->{hits}{hits};
	} else {
		die $res->status_line;
	}
}

MetaCPAN-Clients ( S/SZ/SZABGAB/MetaCPAN-Clients-1.00.tar.gz, SZABGAB, 2020; MetaCPAN )

MetaCPAN-Clients/bin/metacpan_favorite.pl ( view source; MetaCPAN )

#!/usr/bin/env perl
use v5.14;
use strict;
use warnings;
use HTTP::Tiny;
use JSON;
use Path::Tiny;

my ($token, $list) = @ARGV;
die "Usage: $0 <token> <file>\n" if not $list;

my $ua = HTTP::Tiny->new

t = to_json( \%data );
    my $res = $ua->post(
        "https://api.metacpan.org/user/favorite?access_token=$token",
        { content => $post, headers => {'content-type' => 'application/json' }},