view release on metacpan or  search on metacpan

devscript/update-data  view on Meta::CPAN

  LIST_AUTHORS: {
        log_info "Listing all authors from all lists ...";

        require Module::List;
        my $res = Module::List::list_modules("Acme::CPANAuthors::", {list_modules=>1, recurse=>1});
        my @modules = sort keys %$res;

        require Acme::CPANAuthors;
      MOD:
        for my $mod (@modules) {
            log_debug "Processing module $mod ...";
            (my $ac_mod = $mod) =~ s/^Acme::CPANAuthors:://;
            if (grep { $_ eq $ac_mod } @skiplist) {
                log_info "Skipped list $ac_mod";
                next MOD;
            }
            my @authors;
            eval { (my $mod_pm = "$mod.pm") =~ s!::!/!g; require $mod_pm; my %authors = $mod->authors; @authors = sort keys %authors };
            if ($@) {
                log_warn "Can't extract authors from list $ac_mod: $@, skipped";
                next MOD;