lib/CXGN/DB/Production.pm

   1 =head1 NAME
   2
   3  CXGN::DB::Production
   4
   5 =head1 WHY?
   6
   7  Same idea as CXGN::DB::Sandbox, except you might want to run a script
   8  explicitly on the production database.
   9
  10 =head1 AUTHOR
  11
  12  Christopher Carpita <csc32@cornell.edu>
  13
  14 =cut
  15
  16 package CXGN::DB::Production;
  17 use strict;
  18 use base qw/CXGN::DB::Connection/;
  19
  20 sub new {
  21         my $class = shift;
  22         my $custom_args = shift;
  23         my $db_args = {
  24                 dbname => "cxgn",
  25                 dbhost => "hyoscine",
  26                 dbschema => "public",
  27                 dbbranch => "production",
  28                 dbargs => { RaiseError=>0, AutoCommit=>1, PrintError=>0 }
  29         };
  30         while(my($key, $value) = each %$custom_args){
  31                 $db_args->{$key} = $value;
  32         }
  33         my $self = $class->SUPER::new($db_args);
  34         return $self;
  35 }
  36
  37 1;
  38
  39