view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/cpanauthors.pm  view on Meta::CPAN

my %names = (
    map {
        lc $_ => map { tr/-/_/; $_ } join ' ', Acme::CPANAuthors->new($_)->id
        } Acme::CPANAuthors->_list_categories()
);

# protect against empty categories (Acme::CPANAuthors::Dutch)
delete $names{$_} for grep !$names{$_}, keys %names;

__PACKAGE__->init( { default => ':all', names => \%names } );

1;

__END__

=head1 NAME

Acme::MetaSyntactic::cpanauthors - We are CPAN authors, and metasyntactic!

=head1 DESCRIPTION