view release on metacpan or  search on metacpan

examples/test.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
 
use lib '../lib';
use Acme::CPANAuthors;
 
my $a = Acme::CPANAuthors->new('Ukrainian');
 
print  'Ukrainian CPAN authors: ', $a->count, "\n";
printf "%-20s %s\n", $_, $a->name($_) for $a->id;