package Datasource;

use strict;
use DBI;

my ($dbh);

sub global_datasource_handle {
    my ($class) = @_;
    return $dbh if ($dbh);

    $dbh =
      DBI->connect( 'DBI:Pg:dbname=xxx', 'xxx', 'xxx',
        { RaiseError => 1, PrintError => 0 } );

    unless ($dbh) {
        die "Cannot create database handle! Error: $DBI::errstr\n";
    }
    return $dbh;
}

1;