use ResourcePool;
use ResourcePool::Factory;
use ResourcePool::Factory::DBI;

$db_timeOut = 120; # wait 60 seconds for connection

#User credentials
$data_source = 'dbi:DB2:databasename';
$username = 'username'; 
$auth = 'password';
eval{
		# set alarm to timeout current operation
		local $SIG{ALRM} = \&input_timed_out;
		alarm $db_timeOut; 
		$factory =  ResourcePool::Factory::DBI->new($data_source,$username,$auth);
		$pool = ResourcePool->new($factory, Max => 2, MaxTry => 3, SleepOnFail => [30, 60] ,MaxExecTry => 3);
	};
	alarm 0;  # reset the alarm
	
sub resource_pool
{
	$resource = $pool->get(); 
	return $resource ;
}

sub release_pool
{
	$pool->free($resource);
}
sub input_timed_out 
{
	print "connection timed out hence exiting\n";
	exit;
}