Astro-ADS
view release on metacpan or search on metacpan
t/useragent.t view on Meta::CPAN
};
=pod Can't seem to engineer a timeout
subtest 'Connection timeout' => sub {
$ua->connect_timeout(1);
my $search = Astro::ADS::Search->new( q => 'dark energy', sort => 'citation_count desc', rows => 100, ua => $ua);
$search->fl('ack,aff,aff_id,alternate_bibcode,alternate_title,arxiv_class,author,author_count,author_norm,bibcode,bibgroup,bibstem,citation,citation_count,cite_read_boost,classic_factor,comment,copyright,data,database,date,doctype,doi,eid,ent...
my $result = $search->query();
$DB::single = 1;
like $result->error, qr/Timeout/;
};
=cut
done_testing();
( run in 0.820 second using v1.01-cache-2.11-cpan-4d50c553e7e )