view release on metacpan or  search on metacpan

lib/DBIx/Composer.pm  view on Meta::CPAN

=cut

#------------------------------------------------------------
  my ($self, %parameters) = @_;

# Check required keys
  return undef unless ($self->{table});

# Compose
  $self->compose_replace unless $self->{cmd};
  return undef unless ($self->{cmd});

# Make DBI call
  $self->log;
  $self->{_config}->{dbh}->do($self->{cmd});

  return  $self->{_config}->{dbh}->{'mysql_insertid'};

}

#============================================================
sub delete {
#============================================================

=head2 delete

 Usage     : $cmd->delete()
 Purpose   : Makes DBI call of delete
 Returns   : 1 if OK, false otherwise.
 Argument  : None.
 Throws    : Returns undef, if required fields are missed.
 Comments  : 

See Also   : 

=cut

#------------------------------------------------------------
  my ($self, %parameters) = @_;

# Check required keys
  return undef unless ($self->{table});

# Compose
  $self->compose_delete unless $self->{cmd};
  return undef unless ($self->{cmd});

# Make DBI call
  $self->log;
  unless ($self->{_config}->{dbh}->do($self->{cmd})) {
    warn $self->{_config}->{dbh}->errstr;
    return 0;
  }

  return  1;

}

#============================================================
sub update {
#============================================================

=head2 update

 Usage     : $cmd->update()
 Purpose   : Makes DBI call of update
 Returns   : 1 if OK, false otherwise.
 Argument  : None.
 Throws    : Returns undef, if required fields are missed.
 Comments  : 

See Also   : 

=cut

#------------------------------------------------------------
  my ($self, %parameters) = @_;

# Check required keys
  return undef unless ($self->{table});

# Compose
  $self->compose_update unless $self->{cmd};
  return undef unless ($self->{cmd});

# Make DBI call
  $self->log;
  unless ($self->{_config}->{dbh}->do($self->{cmd})) {
    warn $self->{_config}->{dbh}->errstr;
    return 0;
  }

  return  1;

}

#============================================================
sub log_cmd {
#============================================================

=head2 log_cmd

 Usage     : $cmd->log_cmd()
 Purpose   : Logs SQL command to STDERR.
 Returns   : Nothing.
 Argument  : 1 - output format
 Throws    : Returns undef, if required fields are missed.
 Comments  : Should't be called directly. Set flag debug
 		instead when called new().

See Also   : 

=cut

#------------------------------------------------------------
  my ($self, $fmt) = @_;

# Check format
  $fmt = "%s\n" unless $fmt;
  printf STDERR $fmt, $self->{cmd};