package MySPOPS::DBI;

use strict;
use SPOPS::DBI;
@MySPOPS_DBI::ISA = qw(SPOPS::DBI);

use constant DBI_DSN  => 'DBI:vendor:database:host';
use constant DBI_USER => 'user';
use constant DBI_PASS => 'pass';

my ($DB);

sub global_datasource_handle {
   unless (ref $DB) {
      $DB = DBI->connect(
         DBI_DSN, DBI_USER, DBI_PASS,
         {RaiseError => 1}
      );
   }
   return $DB;
}

1;