view release on metacpan or  search on metacpan

t/3_live.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::More;
use AnyEvent;
use AnyEvent::Google::PageRank qw/rank_get/;
use strict;

=pod
my $cv = AnyEvent->condvar;
$cv->begin;

$cv->begin;
rank_get "http://www.google.com", sub {
	my ($rank, $headers) = @_;
	
	ok(defined($rank) && $rank =~ /^\d+$/, 'Rank looks like a number')
		or diag "$headers->{Status} - $headers->{Reason}";
	$cv->end;
};

$cv->end;
$cv->recv;
=cut

ok "Google closed pagerank service";

done_testing();