package SQL::Translator::Parser::DBI;
-# -------------------------------------------------------------------
-# $Id$
-# -------------------------------------------------------------------
-# Copyright (C) 2002-2009 SQLFairy Authors
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License as
-# published by the Free Software Foundation; version 2.
-#
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-# 02111-1307 USA
-# -------------------------------------------------------------------
-
=head1 NAME
SQL::Translator::Parser::DBI - "parser" for DBI handles
use DBI;
use SQL::Translator;
- my $dbh = DBI->connect('dsn', 'user', 'pass',
+ my $dbh = DBI->connect('dsn', 'user', 'pass',
{
RaiseError => 1,
FetchHashKeyName => 'NAME_lc',
=head1 DESCRIPTION
-This parser accepts an open database handle (or the arguments to create
-one) and queries the database directly for the information.
+This parser accepts an open database handle (or the arguments to create
+one) and queries the database directly for the information.
The following are acceptable arguments:
=item * dbh
-An open DBI database handle. NB: Be sure to create the database with the
-"FetchHashKeyName => 'NAME_lc'" option as all the DBI parsers expect
+An open DBI database handle. NB: Be sure to create the database with the
+"FetchHashKeyName => 'NAME_lc'" option as all the DBI parsers expect
lowercased column names.
=item * dsn
this is determined automatically by inspecting $dbh->{'Driver'}{'Name'}.
If a parser exists for your database, it will be used automatically;
if not, the code will fail automatically (and you can write the parser
-and contribute it to the project!).
+and contribute it to the project!).
Currently parsers exist for the following databases:
=cut
-# -------------------------------------------------------------------
-
use strict;
+use warnings;
use DBI;
-use vars qw($VERSION @EXPORT);
-$VERSION = '1.99';
+our @EXPORT;
+our $VERSION = '1.59';
use constant DRIVERS => {
mysql => 'MySQL',
my $db_user = $args->{'db_user'};
my $db_password = $args->{'db_password'};
+ my $dbh_is_local;
unless ( $dbh ) {
die 'No DSN' unless $dsn;
- $dbh = DBI->connect( $dsn, $db_user, $db_password,
+ $dbh = DBI->connect( $dsn, $db_user, $db_password,
{
FetchHashKeyName => 'NAME_lc',
LongReadLen => 3000,
LongTruncOk => 1,
RaiseError => 1,
- }
+ }
);
+ $dbh_is_local = 1;
}
die 'No database handle' unless defined $dbh;
my $pkg = "SQL::Translator::Parser::DBI::$driver";
my $sub = $pkg.'::parse';
- $tr->load( $pkg );
+ SQL::Translator::load( $pkg );
- eval {
+ my $s = eval {
no strict 'refs';
&{ $sub }( $tr, $dbh ) or die "No result from $pkg";
};
+ my $err = $@;
- $dbh->disconnect if defined $dbh;
+ eval { $dbh->disconnect } if (defined $dbh and $dbh_is_local);
- die $@ if $@;
+ die $err if $err;
- return 1;
+ return $s;
}
1;
-# -------------------------------------------------------------------
=pod
=head1 AUTHOR