#!/usr/bin/perl

use DBI;
use Data::Dumper;

my $dbi = DBI->connect("dbi:mysql:test", "root") or die DBI::errstr();

$dbi->do("drop table if exists metric_name");
$dbi->do(qq{
CREATE TABLE metric_name (
  metric_name_id int(11) NOT NULL auto_increment,
  metric_name varchar(255) NOT NULL default '',
  metric_category varchar(255) NOT NULL default '',
  metric_name_type enum('NUMBER','STRING','PERCENT') NOT NULL default 'NUMBER',
  project_based tinyint(1) NOT NULL default '0',
  metric_attr_type_id int(11) default NULL,
  PRIMARY KEY  (metric_name_id),
  UNIQUE KEY metric_name (metric_name),
  KEY metric_attr_type_id (metric_attr_type_id),
  KEY i_mn_metric_name (metric_name)
) ENGINE=InnoDB DEFAULT CHARSET=latin1
}) or die DBI::errstr();

$dbi->do("insert into metric_name (metric_name_id, metric_name, project_based) values (-4,'testing..',1)");

my ($sql, $sth, $HashRef); 
$sql = "select metric_name_id, metric_name from metric_name where 1 = 1 and project_based = 1 order by metric_name limit 1";
$sth = $dbi->prepare ($sql) or die DBI::errstr();
$sth->execute();
print Dumper $sth->fetchall_arrayref();

$sql = "select version()";
$sth = $dbi->prepare ($sql) or die DBI::errstr();
$sth->execute();
print Dumper $sth->fetchall_arrayref();



$sth->finish();
$dbi->disconnect();