Yet Another CPAN Grep

CPANfile-Parse-PPI ( P/PE/PERLSRVDE/CPANfile-Parse-PPI-0.06.tar.gz, PERLSRVDE, 2022; MetaCPAN )

CPANfile-Parse-PPI/scripts/test.pl ( view source; MetaCPAN )

#!/usr/bin/perl

use strict;
use warnings;

use Mojo::File qw(curfile);
use Mojo::JSON qw(encode_json);
use Data::Printer;
use CPANfile::Parse::PPI;

my @data;
my $files = curfile->dirname->child(qw(.

ch( sub {
    my $parser = CPANfile::Parse::PPI->new( $_->to_string );
    push @data, {
        file    => $_->basename,
        results => $parser->modules,
    };
});

print( encode_json \@data );

CPANfile-Parse-PPI ( P/PE/PERLSRVDE/CPANfile-Parse-PPI-0.06.tar.gz, PERLSRVDE, 2022; MetaCPAN )

CPANfile-Parse-PPI/scripts/get_cpanfiles.pl ( view source; MetaCPAN )

o::UserAgent;

my $tx = Mojo::UserAgent->new->post(
    'https://fastapi.metacpan.org/v1/file' => json => {
        "query"=> {
            "match_all"=> {}
        },
        "filter"=> {

istribution",
            "release"
        ],
        "size"=> 20
    }
);

my $data = $tx->res->json;
my @files = map {
     +{
         dist => $_->{fields}->{distribution},
         path => (sprin