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 )