view release on metacpan or  search on metacpan

scripts/generate-github-authors.pl  view on Meta::CPAN

use 5.010;

use Acme::CPANAuthors::Utils;
use Cwd qw(realpath);
use MetaCPAN::Client;
use FindBin;

my $VERSION = '0.09';

my (%name, %github);
process_authors();
process_releases();
write_file();

exit;


sub process_authors {
    my $search = MetaCPAN::Client->new->all('authors');
    AUTHOR:
    while (my $author = $search->next) {
        my $pauseid = $author->pauseid;
        next unless $pauseid;

        my $name = $author->name // '';
        $name{$pauseid} = $name;

        for my $website (@{$author->website // []}) {

scripts/generate-github-authors.pl  view on Meta::CPAN

        for my $profile (@{$author->profile // []}) {
            next unless 'github' eq $profile->{name};
            $github{$pauseid} = $name;
            next AUTHOR;
        }
    }
}


sub process_releases {
    my $search = MetaCPAN::Client->new->release({
        all => [
            { maturity => 'released' },
            { status   => 'latest' },
            {
                either => [
                    { 'resources.repository.url' => '*github.com/*' },
                    { 'resources.repository.web' => '*github.com/*' },
                    { 'resources.homepage'       => '*github.com/*' },
                ]