Perl 基于OOP的数据库链接(增删改查)

package TDmodule;
use DBI;

sub new{
  $self={};
  $self->{select_db}=undef;
  $self->{delete_db}=undef;
  $self->{insert_db}=undef;
  $self->{update_db}=undef;
  bless $self;
  return $self;
}
sub connect_db{
  my $self=shift;
  if(@_){
    $self->{'connect_db'}=DBI->connect("DBI:mysql:database=@_[0];host=@_[1]","@_[2]","@_[3]") or die "No:$!\n";
  }
  return $self->{'connect_db'};
}
sub select_db{
  my $self=shift;
  if(@_){
      my $select=@_[0]->prepare(@_[1]);
      $select->execute();
      $self{select_db}=$select;
  }
  return $self{select_db};
  @_[0]->disconnect;
}

sub update_db{
  my $self=shift;
  if(@_){
      eval{
        $self->{update_db}=@_[0]->do(@_[1]);
      } or die "No\n";
  }
}

sub insert_db{
  my $self=shift;
  if(@_){
      eval{
        $self->{insert_db}=@_[0]->do(@_[1]);
      } or die "No\n";
  }
}

sub delete_db{
  my $self=shift;
  if(@_){
      eval{
        $self->{delete_db}=@_[0]->do(@_[1]);
      } or die "No\n";
  }
}

1;