perl_lib/Kamitsukai/Database/Table.pm

   1 # Copyright (c) 2008, Jacob Helwig
   2 # All rights reserved.
   3 #
   4 # Redistribution and use in source and binary forms, with or without
   5 # modification, are permitted provided that the following conditions are met:
   6 #
   7 #     * Redistributions of source code must retain the above copyright notice,
   8 #       this list of conditions and the following disclaimer.
   9 #
  10 #     * Redistributions in binary form must reproduce the above copyright notice,
  11 #       this list of conditions and the following disclaimer in the documentation
  12 #       and/or other materials provided with the distribution.
  13 #
  14 #     * Neither the name of Technosorcery Networks nor the names of its
  15 #       contributors may be used to endorse or promote products derived from
  16 #       this software without specific prior written permission.
  17 #
  18 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
  19 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  20 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  21 # DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
  22 # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  23 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  24 #     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  25 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  26 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  27 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28
  29 package Kamitsukai::Database::Table;
  30
  31 use strict;
  32 use Perl6::Parameters;
  33
  34 use Kamitsukai::Database::DBI qw/
  35     DB_NAME
  36     DB_PASS
  37     DB_TYPE
  38     DB_USER
  39 /;
  40
  41 use base qw/ Class::DBI /;
  42
  43 Kamitsukai::Database::Table->connection(
  44     'dbi:' . DB_TYPE . ':' . DB_NAME,
  45     DB_USER,
  46     DB_PASS
  47 );