view release on metacpan or  search on metacpan

lib/Egg/Mod/EasyDBI.pm  view on Meta::CPAN

	my $self= shift;
	my $a= $argc->_insert(@_);
	my $sql= qq{INSERT INTO $self->{dbname}}
	       . qq{ (}. join(', ', keys %$a). q{) VALUES}
	       . qq{ (}. join(', ', map{"?"}keys %$a). q{)};
	$self->{es}->debug($sql);
	$self->{es}->dbh->do($sql, undef, values %$a)
	> 0 ? 1: 0;
}
*in= \&insert;
sub update {
	my $self= shift;
	my $a= $argc->_update(@_);
	my $sql= qq{UPDATE $self->{dbname} SET }
	       . join(', ', keys %{$a->{up}}). qq{ WHERE $a->{st}};
	$self->{es}->debug($sql);
	$self->{es}->dbh->do($sql, undef, (values %{$a->{up}}), @{$a->{ex}})
	> 0 ? 1: 0;
}
*up= \&update;
sub update_insert {
	my $self= shift;
	return "0E0" if $self->update(@_);
	if (my $error= $self->{es}->dbh->errstr) { die $error }
	$self->insert(@_);
}
sub find_insert {
	my $self= shift;
	my $col = shift || croak q{ I want column name. };
	@_ || croak q{ I want argument. };
	my $hash= ref($_[0]) eq 'HASH'