view release on metacpan or  search on metacpan

lib/CGI/AppToolkit/Data/Object.pm  view on Meta::CPAN

# store an object
sub store {
	my $self = shift;

}


#-------------------------------------#

# update an object
sub update {
	my $self = shift;

}


#-------------------------------------#

# delete an object
sub delete {
	my $self = shift;

lib/CGI/AppToolkit/Data/SQLObject.pm  view on Meta::CPAN

		}		
				
		return $old if defined wantarray;
	}
}


#-------------------------------------#

# get a prepared db statement
sub update {
	my $self = shift;
	my $name = shift;
		
	#if we're passed several values, recurse then quit
	if (ref $_[0] eq 'ARRAY') {
		my $ret = [];
		my $stores = shift;
		
		foreach my $args (@$stores) {
			push @$ret, $self->update($args);