package Singleton::DBI; 

use conf::SiteConfig;
use DBI qw/ :sql_types / ;      # Database interface

use vars qw( @ISA);
@ISA = qw(DBI);
  
my $oneTrueSelf;
  
sub instance 
{
    $oneTrueSelf ||= (shift)->new();
}
  
sub new 
{
    my $type = shift;

    # get necessary config info
    my $dbuser = conf::SiteConfig::get_conf ( 'dbuser' );
    my $dbpass = conf::SiteConfig::get_conf ( 'dbpass' );
    my $dbname = conf::SiteConfig::get_conf ( 'dbname' );
    my $dbserv = conf::SiteConfig::get_conf ( 'dbserv' );
    
    # Build up DBI connection string.
    my $datasource = 'dbi:mysql:'.$dbname;
    $datasource .= "\;host=$dbserv" if ( $dbserv );

    # Connect
    my $this  = DBI->connect ( $datasource, $dbuser, $dbpass );
    return bless $this, $type;
}


1;


##</code><code>##

Can't locate auto/Singleton/DBI/selectrow_a.al  ...