Help for this page

Select Code to Download

Select or download this
```
package MyDBI;

...
}

1;
```

Select or download this

use MyDBI;
my $dbh= MyDBI->connect (...);
my $sth = $dbh->prepare ("select now()");
sleep (10); # while sleeping the db goes away
$sth->execute; # at this point MyDBI is supposed to reconnect and reru
+n prepare/execute