view release on metacpan or  search on metacpan

PDlib.pm  view on Meta::CPAN

		$handle->finish;
		# return 1 (success) if they want a return value, or just return.
		return defined(wantarray()) ? (1) : "";
	} else {
		# couldn't execute it.
		carp "Unable to execute insert handle at line $line in file $file package $pkg\n";
		return;
	}
}

sub update
{
	my ($pkg,$file,$line) = caller;

	####################################################
	####################################################
	##
	## Useful SQL Update wrapper to cut down on code
	## in our friendly main scripts
	##
	## Usage: update($tablename,$fields_array_ref,$values_array_ref,$where_statement);