view release on metacpan or  search on metacpan

lib/Acme/CPANAuthors/EU.pm  view on Meta::CPAN

my @NATIONALITIES;

BEGIN {
    @NATIONALITIES = qw [Austrian British French German Portuguese];
    foreach my $nat (@NATIONALITIES) {
        eval "require Acme::CPANAuthors::$nat" or die $@;
    }
}

use Acme::CPANAuthors::Register (
   (map {"Acme::CPANAuthors::$_" -> authors} @NATIONALITIES),
    ABIGAIL       =>   'Abigail',
);


1;

__END__

=head1 NAME