Help for this page

Select Code to Download


  1. or download this
    package Foo;

...
}

1;
  2. or download this
       # THE SAME PROBLEM:
   eval {
     $self->{'dbh'} = DBI->connect(@_,{RaiseError=>1,PrintError=>0})
   };
   carp $@ if $@;
  3. or download this
    use strict;

...

print "\nComparing DBI:\n";
my $dbh = DBI->connect(qw(DBI:mysql:mysql:host user pass));