perl_lib/Kamitsukai/Database/Table.pm

   1 package Kamitsukai::Database::Table;
   2
   3 use strict;
   4 use Perl6::Parameters;
   5
   6 use Kamitsukai::Database::DBI qw/
   7     DB_NAME
   8     DB_PASS
   9     DB_TYPE
  10     DB_USER
  11 /;
  12
  13 use base qw/ Class::DBI /;
  14
  15 Kamitsukai::Database::Table->connection(
  16     'dbi:' . DB_TYPE . ':' . DB_NAME,
  17     DB_USER,
  18     DB_PASS
  19 );