X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=Makefile.PL;h=f6b9c7e9eeeec967d66c7655a784d4bf63fcbc83;hb=3ad2dcf33ac9ae8edb90ac3d074d31a6cc95afee;hp=52236095e5c8f0eba8d3eb5ffae8dc77c8ff15cd;hpb=5617e978a18a37c2d401674f1b793a041b390bce;p=maypole.git diff --git a/Makefile.PL b/Makefile.PL index 5223609..f6b9c7e 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -21,13 +21,13 @@ WriteMakefile( }, # e.g., Module::Name => 1.1 ($] >= 5.005 ? ## Add these new keywords supported since 5.005 (ABSTRACT_FROM => 'lib/Apache/MVC.pm', # retrieve abstract from module - AUTHOR => 'Simon Cozens ') : ()), + AUTHOR => 'Simon Cozens ') : ()), ); if (!-e "t/beerdb.db") { print "Making SQLite DB\n"; - require DBD::SQLite - or die "No, wait, we don't have SQLite installed. Never mind\n"; + eval { require DBD::SQLite }; + die "No, wait, we don't have SQLite installed. Never mind\n" if $@; require DBI; my $dbh = DBI->connect("dbi:SQLite:dbname=t/beerdb.db"); @@ -45,38 +45,44 @@ if (!-e "t/beerdb.db") { __DATA__ create table brewery ( - id int not null auto_increment primary key, + id integer auto_increment primary key, name varchar(30), url varchar(50), notes text ); create table beer ( - id int not null auto_increment primary key, - brewery integer, - style integer, + id integer auto_increment primary key, + brewery integereger, + style integereger, name varchar(30), url varchar(120), # tasted date, - score integer(2), + score integereger(2), price varchar(12), abv varchar(10), notes text ); create table handpump ( - id int not null auto_increment primary key, - beer integer, - pub integer + id integer auto_increment primary key, + beer integereger, + pub integereger ); create table pub ( - id int not null auto_increment primary key, + id integer auto_increment primary key, name varchar(60), url varchar(120), notes text ); +create table style ( + id integer auto_increment primary key, + name varchar(60), + notes text +); + INSERT INTO beer (id, brewery, name, abv) VALUES (1, 1, "Organic Best Bitter", "4.1"); INSERT INTO brewery (id, name, url) VALUES