#!/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}";
}
Displays:
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
.....
|