## FOO.pm
package FOO;
use base 'Class::DBI';
my $username = 'hue';
my $password;
my $pgdbhost = 'localhost';
my $pgdbname = 'hue';
sub get_pgdbpass {
    print "enter pg pass: ";
    ## cheap
    system '/bin/stty -echo';
    chomp (my $pgdbpass = <STDIN>);
    system '/bin/stty echo';
    print "\n";
    return $pgdbpass;
}
__PACKAGE__->connection (
    "dbi:Pg:dbname=$pgdbname;host=$pgdbhost;",
    $username,
    $password ? $password : ($password = get_pgdbpass),
    {AutoCommit => 0, RaiseError => 1},
);

1;