view release on metacpan or  search on metacpan

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

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) {
				my($id) = $a->avatar_url($_) =~ m{avatar/(.*)};
				$_[KERNEL]->post(
					'HTTP_CLIENT' => 'request', 'result',
					GET(($id ? "http://www.gravatar.com/avatar.php?gravatar_id=$id" : $a->avatar_url($_)).'&default=http%3A%2F%2Fst.pimg.net%2Ftucs%2Fimg%2Fwho.png'),
					$_
				);
				$_[HEAP]->{'count'}++;
			}
		},
		result => sub {
			my $name     = $_[ARG0]->[1];
			my $response = $_[ARG1]->[0];