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:
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,
- }
+ }
);
}
my $pkg = "SQL::Translator::Parser::DBI::$driver";
my $sub = $pkg.'::parse';
- $tr->load( $pkg );
+ SQL::Translator::load( $pkg );
eval {
no strict 'refs';