Add the style table.

[maypole.git] / Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index 52236095e5c8f0eba8d3eb5ffae8dc77c8ff15cd..4b8811038d7ee3d5d56d7f507ddcab11fd6b3076 100644 (file)
--- 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 <simon@nonet>') : ()),
+       AUTHOR         => 'Simon Cozens <simon@simon-cozens.org>') : ()),
 );
 
 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");
 
@@ -77,6 +77,12 @@ create table pub (
     notes text
 );
 
+create table style (
+    id int not null 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