#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use DateTime;
use Mojo::UserAgent;

# http://api.cpantesters.org/docs/?url=/v3#!/Summary/v3_summary_all 
my $url = 'http://api.cpantesters.org/v3/summary';

# just an example, the last month
my $date = DateTime->now->add( months => -1 )->iso8601.'Z';
my $osname = 'mswin32';
my $grade = 'fail';

my $ua = Mojo::UserAgent->new;
my $res = $ua->get( "$url?osname=$osname&grade=$grade&since=$date" )->res->json; 
say "$osname $grade since $date";
foreach my $fail ( @{$res} ){
	say "$fail->{dist} failed on $fail->{perl}";
}


##</code><code>##

mswin32 fail since 2020-01-19T16:45:05Z
Config-Registry failed on 5.20.1
ExtUtils-MakeMaker failed on 5.22.1
Config-Registry failed on 5.18.2
Config-Registry failed on 5.18.2
CBOR-Free failed on 5.18.2
MySQL-ORM failed on 5.18.2
MySQL-ORM failed on 5.12.2
Metabolomics-Fragment-Annotation failed on 5.18.2
MySQL-ORM failed on 5.20.1
Config-Registry failed on 5.12.2
Class-Refresh failed on 5.18.2
.....