Object-I18n
view release on metacpan or search on metacpan
t/lib/OI18nTest/CDBI.pm view on Meta::CPAN
package OI18nTest::CDBI;
use strict;
use warnings;
use base qw(Class::DBI::mysql);
my $cfg = require("dbi_connect.pl");
my $db = $ENV{DBI_DBNAME} || $cfg->{db};
my $table = $ENV{DBI_TABLE} || $cfg->{table};
my $user = $ENV{DBI_USER} || $cfg->{user};
my $password = $ENV{DBI_PASS} || $cfg->{password};
my $dsn = "dbi:mysql:$db";
__PACKAGE__->set_db('Main', $dsn, $user, $password);
__PACKAGE__->table($table);
__PACKAGE__->drop_table;
( run in 0.254 second using v1.01-cache-2.11-cpan-05444aca049 )