File Coverage

blib/lib/HTTP/Retry.pm

Criterion	Covered	Total	%
statement	29	34	85.2
branch	4	8	50.0
condition	6	6	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	44	54	81.4

package HTTP::Retry;

use 5.008008;
use strict;
use warnings;
use HTTP::Tiny;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw( http );
our $VERSION = '0.05';

sub http
{
	my %conf;
	my $url;
	my $timeout;
	my $retry;
	my $sleep;
	unless($#_)
	{
		$url = shift;
		$timeout = 5;
		$retry = 3;
		$sleep = 0;
	}
	else
	{
		%conf = @_;
		$url = $conf{'url'};
		$timeout = $conf{'timeout'} || 5;
		$retry = $conf{'retry'} || 3;
		$sleep = $conf{'sleep'} || 0;
	}
	return "failed cause empty url" unless $url;

	my $http_tiny = HTTP::Tiny->new( 'timeout' => $timeout , 'agent' => 'HTTP::Retry');
	my $resp;
	for(1 .. $retry)
	{
		$resp = $http_tiny->get($url);
		return $resp if $resp->{success};
		sleep $sleep if $sleep > 0 ;
	}
	return "failed at timeout=$timeout, retry=$retry, sleep=$sleep";
}
1;
__END__