view release on metacpan or  search on metacpan

DBX/Recordset.pm  view on Meta::CPAN

	}
}

sub as_num
{
	my ($self) = @_;

	return !$self->{eof};
}

sub update
{
	my ($self) = @_;
	return unless $self->{dirty};

	my %changed = %{$self->{changed}};
	my %old = %{$self->{cur_rec}};

	my $sql = "UPDATE $self->{table} SET ";

	for(keys(%changed))