view release on metacpan or  search on metacpan

lib/SQL/Amazon/Spool.pm  view on Meta::CPAN

		undef;
}

sub fetch_row ($$) {
    my($obj, $handle) = @_;
	$obj->{errstr} = 'Resultset timeout has expired.',
	$obj->{_keys} = undef,
	return undef
		if (time() > $obj->{_timeout});

	my $cursor = defined($obj->{_cursor}) ?  $obj->{_cursor} : -1;
	my $keys = $obj->{_keys};
	return undef
		if ($cursor >= $#$keys);
	my $row;
	$cursor++;
	while ($cursor <= $#$keys) {
		$row = $obj->{_table}->fetch($keys->[$cursor]);
		$obj->{_currkey} = $keys->[$cursor];
		last if $row;
		$cursor++;
	}
	
	$obj->{_cursor} = $cursor;
	$obj->{errstr} = $row,
	$obj->{row} = undef,
	$obj->{_currkey} = undef,
	return undef
		unless ref $row;

	$obj->{row} = undef,
	$obj->{_currkey} = undef,
	return undef
		unless $row;