autotrade/SQL.pm

   1 package autotrade::SQL;
   2
   3 use DBI;
   4
   5 sub db_connect {
   6         my ($dbfile) = @_;
   7         $dbfile ||= 'autotrade.sqlite';
   8         my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "")
   9                 or die ("Can't open DB: $!");
  10         $dbh;
  11 }
  12
  13 1;