Help for this page

Select Code to Download


  1. or download this
    my $dbh = DBI->connect( " yada yada " ), { PrintError => 0},
      or die "cannot open db connection:  $DBI::errstr\n";
  2. or download this
      eval {
      my $dbh = DBI->connect( " yada yada " ), { PrintError => 0},
      or die "cannot open db connection:  $DBI::errstr\n";
  }
  return $dbh;
  3. or download this
    sub db_connection {

    my ( $self ) = @_;
    my $dbh;