Debbugs/DB.pm

   1 use utf8;
   2 package Debbugs::DB;
   3
   4 # Created by DBIx::Class::Schema::Loader
   5 # DO NOT MODIFY THE FIRST PART OF THIS FILE
   6
   7 use strict;
   8 use warnings;
   9
  10 use base 'DBIx::Class::Schema';
  11
  12 __PACKAGE__->load_namespaces;
  13
  14
  15 # Created by DBIx::Class::Schema::Loader v0.07025 @ 2012-07-17 10:25:29
  16 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:wiMg1t5hFUhnyufL3yT5fQ
  17
  18 # This version must be incremented any time the schema changes so that
  19 # DBIx::Class::DeploymentHandler can do its work
  20 our $VERSION=5;
  21
  22 # You can replace this text with custom code or comments, and it will be preserved on regeneration
  23
  24 # override connect to handle just passing a bare service
  25 sub connect {
  26     my ($self,@rem) = @_;
  27     if ($rem[0] !~ /:/) {
  28         $rem[0] = 'dbi:Pg:service='.$rem[0];
  29     }
  30     $self->clone->connection(@rem);
  31 }
  32
  33 1;