Skip to content

Instantly share code, notes, and snippets.

@olegwtf

olegwtf/a-g-p-warns.pl

Created January 24, 2012 01:43
Show Gist options
  • Save olegwtf/1667216 to your computer and use it in GitHub Desktop.
Save olegwtf/1667216 to your computer and use it in GitHub Desktop.
Download ZIP
Any Warnings?
Raw
a-g-p-warns.pl
use strict;
use warnings;
use AnyEvent::Google::PageRank 'rank_get';
my $cv = AE::cv;
rank_get 'http://www.google.ru', sub {
print shift, "\n";
$cv->send;
};
$cv->recv;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment