Creating DB Tables

#!/usr/local/bin/perl
use DatabaseConnection;

package main;


# MySQL database configuration
my $dsn = "DBI:mysql:perl_training";
my $username = "mamagdy";
my $password = "";

# DatabaseConnection object
my $dbc = DatabaseConnection->connect($dsn, $username, $password);

$dbc->dropTable("Machines");
$dbc->dropTable("Builds");

$dbc->createTable("Machines",
			"id INT NOT NULL PRIMARY KEY AUTO_INCREMENT,
			m varchar(100) NOT NULL,
			np INT NOT NULL,
			ms INT NOT NULL");


$dbc->createTable("Builds",
			"id INT NOT NULL PRIMARY KEY AUTO_INCREMENT,
			cd DATE NOT NULL,
			ct TIME NOT NULL,
			tt INT,
			mid INT NOT NULL,
			p varchar(100) NOT NULL,
			i TINYINT,
			s TINYINT,
			g TINYINT,
			r TINYINT,
			w TINYINT,
			e TINYINT,
			a TINYINT,
			q TINYINT,
			c TINYINT,
			o TINYINT,
			FOREIGN KEY (mid) REFERENCES Machines(id)");


=pod

my @all_rows = $dbc->retrieve( "employee");

foreach my $row (@all_rows) {
 	print "@$row\n";
}
=cut


# Disconnecting ..
$dbc->disconnect();