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