#!/usr/bin/perl -w
use Apache::DBI;
$Apache::DBI::DEBUG = 1;
#use strict;

#!/usr/bin/perl;
use DBI;
use SQLite::VirtualTable;
$dbh = DBI->connect('dbi:SQLite:dbname=/tmp/db.sqlite', '', '');

package PVL_Database;
use DBI;
sub new {
  my $class = shift;

$dbh = DBI->connect('dbi:mysql:database=paperioritizer;host=localhost','ultramancool','some_pass');

#!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;
use DBD::Multiplex;

#!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;
use DBD::Multiplex;

#!/usr/bin/perl
use strict;
use DBI;
use DBD::mysql;
use DBD::Multiplex;

package Class::DBI::Loader::Sybase;
use strict;
use Class::DBI;

#!/usr/bin/perl
use strict;
use DBI;
use DBD::Pg;
use DBD::Multiplex;

package CPAN::Search::Lite::DBI::Query;
use base qw(CPAN::Search::Lite::DBI);
use CPAN::Search::Lite::DBI qw($tables $dbh);

# (с) Леонов П.А., 2005
package CMSBuilder::DBI::Object;
use strict qw(subs vars);
use utf8;

#  -*- perl -*-
package Connect;
use DBI;
for (qw(DBI_DATA_SOURCE DBI_USERNAME DBI_AUTH)) {
  die "Please set environment $_ as documented within the file INSTALL\n"

use DBI;
# $Id: testdatasources.pl 11680 2008-08-28 08:23:27Z mjevans $
print join(', ', DBI->data_sources("ODBC")), "\n";

use DBI;
    my $dbh = DBI->connect('DBI:mysql:database=modwheel;host=localhost',
        'modwheel',

#!/usr/bin/perl -w
# ipk - demonstrate integer primary keys
#use DBI;
our $dbh = DBI->connect("dbi:SQLite:main.db", "", "",
{RaiseError => 1, AutoCommit => 1});

use ExtUtils::MakeMaker;
WriteMakefile(
     NAME          => 'Template::Provider::DBI',
     VERSION_FROM  => 'lib/Template/Provider/DBI.pm',
     PREREQ_PM     => { 'DBI'                   => 0,

#!/usr/bin/perl -w
use strict;
use DBI;
use Carp;
my $dbh;

package ContentManager::DBI;
use base 'Class::DBI';
__PACKAGE__->connection('dbi:mysql:dbdname', 'username', 'password');

#!/usr/bin/perl -w
use strict;
use DBI;

#!perl
use Pixie::Store::DBI;
my($spec, $user, $pass) = @ARGV;
Pixie::Store::DBI->deploy($spec, user => $user, pass => $pass);

#in the below line, replace what's necessary :-)
$dbh = DBI->connect('dbi:mysql:database=database;host=host','username','password');

#in the below line, replace what's necessary :-)
$dbh = DBI->connect('dbi:mysql:database=database;host=host','username','password');

#in the below line, replace what's necessary :-)
$dbh = DBI->connect('dbi:mysql:database=database;host=host','username','password');

use strict;
use Search::OpenFTS::Index;
use DBI();
use DBD::Pg();
if ( $#ARGV <1 ) {

#use strict; 
# Loading the Database module
use DBI;
@drv = DBI->available_drivers;
print "Treiber: @drv\n";