Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

MJEVANS / DBD-ODBC-1.18_4 / examples / testdisc.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

              
#!perl -w
# $Id: testdisc.pl 11680 2008-08-28 08:23:27Z mjevans $
use strict;
use DBI;
my $dbh = DBI->connect();
$dbh->disconnect;
eval {
   my $sth = $dbh->tables();
};
eval {
   my $sth2 = $dbh->prepare("select sysdate from dual");
};