SYNOPSIS
use DBIx::DataSource;
use DBIx::DataSource qw( create_database drop_database );
create_database( "dbi:Pg:dbname=$dbname", $username, $password )
or warn $DBIx::DataSource::errstr;
create_database( "dbi:Pg:dbname=$dbname;host=$host;port=$port",
$username, $password )
or warn $DBIx::DataSource::errstr;
drop_database( "dbi:Pg:dbname=$dbname", $username, $password )
or warn $DBIx::DataSource::errstr;
drop_database( "dbi:Pg:dbname=$dbname;host=$host;port=$port",
$username, $password )
or warn $DBIx::DataSource::errstr;