package My::DB;
use strict;
use DBI;

#  Postgres Username/Password
$My::DB::pg_username = 'my_username';
$My::DB::pg_password = 'my_password';

sub new {
    
    my $data = $_[1];
    
    my $dbh;
    
    if ( $data->{server} eq 'pg' ) {
        $dbh = DBI->connect("dbi:Pg:dbname=$data->{db};user=$My::DB::pg_username;password=$My::DB::pg_password")
            or die "Unable to connect: $DBI::errstr\n";
        $dbh->{PrintError} = 1;
        $dbh->{RaiseError} = 1;       
    }
    
    if ( $data->{server} eq 'sqlite' ) {
        $dbh = DBI->connect("dbi:SQLite:dbname=$data->{db}","","",{PrintError => 1,AutoCommit => 1});
    }
   
    return $dbh; 
  
}