view release on metacpan or  search on metacpan

examples/fetchscroll.pl  view on Meta::CPAN

			37 => [ 'prev',       0,  1 ],
			38 => [ 'prev',       0, undef ],
		   );

my @ops = (\%op1, \%op2);

my $sth = $dbh->prepare(qq{SELECT tabid, tabname FROM $tab});

my($nseqs, $ttest, $tfail, $ttwf) = (0, 0, 0, 0, 0);

foreach my $opset (@ops)
{
	$nseqs++;
	print "== Test Sequence $nseqs\n";
	$sth->execute;
	my ($test, $fail) = test_scroll_query_sequence($sth, %$opset);
	$ttest += $test;
	$tfail += $fail;
	$ttwf++ if $fail;
}

print "== Test Sequences $nseqs";
print " ($ttwf with failures)" if $ttwf;
print " Fetch Tests $ttest";
print " (with $tfail failures)" if $tfail;
print "\n";