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('Russian');
 
print  'Russian CPAN authors: ', $a->count, "\n";
printf "%-20s %s\n", $_, $a->name($_) for $a->id;

script/cpan-faces.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
 
use POE qw(Component::Client::HTTP);
use HTTP::Request::Common 'GET';
 
use lib '../lib';
use Acme::CPANAuthors;
 
my $a = Acme::CPANAuthors->new(shift || 'Russian');
 
POE::Component::Client::HTTP->spawn(Alias => 'HTTP_CLIENT', FollowRedirects => 0);
 
POE::Session->create(
        inline_states => {
                _start => sub {
                        for ($a->id) {