ny ();
use Text::CleanFragment qw/clean_fragment/;
use Regexp::Common qw/balanced delimited/;
use JSON::MaybeXS ();
use XML::LibXML ();
use Data::Dump qw/dd/;
# Badge-Simple 0.01 had a ton of CPAN Te
my $GET_CACHE = dir($FindBin::Bin,'scrape_cache'); # for sub get
$GET_CACHE->mkpath(1);
my $json = JSON::MaybeXS->new(relaxed=>1);
my $cpt_js = get('http://www.cpantesters.org/static/distro/B/Badg
ons = $json->decode($1);
my $version = $versions->[-1];
$cpt_js =~ m{ \b var \s+ results \s* = \s*
( $RE{balanced}{-parens=>'{}'} ) \s* (?: ; | \z ) }xms
or die $cpt_js;
my $reports = $json->decod