use encs;
my $sto 	= encs->model("DB::Exset")->new({})->result_source->schema->storage;
printf("start\n");
foreach my $i (49,50,51,52,53,49) {
	print("wait $i seconds:\n");
	my $t1 = time;
	my $t2 = undef;
	eval {
		$sto->dbh_do(
	  		sub {
	    		my ($storage, $dbh, @cols) = @_;
	    		$t2 = time;
			    my $sth = $dbh->prepare("Select sleep($i)") or die $dbh->errstr;
			    $sth->execute or die $sth->errstr;
			    my $data = $sth->fetchrow_hashref;
	  		}  
		);
	};
	if ( $@ ) {
		printf("ERROR: %s (%d, %d)\n", $@, time - $t1, time - $t2);	
	} 
	else {
		printf("Ok: (%d, %d)\n", time - $t1, time - $t2);	
	}  
}
printf("end\n");
exit;