Makefile.PL

   1 use 5.006;
   2 use ExtUtils::MakeMaker;
   3
   4 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
   5 # the contents of the Makefile that is written.
   6 WriteMakefile(
   7     NAME         => 'Maypole',
   8     VERSION_FROM => 'lib/Maypole.pm',    # finds $VERSION
   9     PREREQ_PM    => {
  10         Class::DBI::Loader               => '0.02',
  11         Class::DBI::AbstractSearch       => 0,
  12         Class::DBI::Pager                => 0,
  13         Class::DBI::Plugin::RetrieveAll  => 0,
  14         Class::DBI::AsForm               => 2.2,
  15         Class::DBI::FromCGI              => 0.94,
  16         Class::DBI::Loader::Relationship => 0,
  17         Class::DBI                       => 0.96,
  18         CGI::Untaint                     => 0,
  19         UNIVERSAL::moniker               => 0,
  20         UNIVERSAL::require               => 0,
  21         CGI::Simple                      => 0,
  22         Template                         => 0,
  23         Template::Plugin::Class          => 0,
  24     },    # e.g., Module::Name => 1.1
  25     (
  26         $] >= 5.005
  27         ?    ## Add these new keywords supported since 5.005
  28           (
  29             ABSTRACT_FROM => 'lib/Maypole.pm',   # retrieve abstract from module
  30             AUTHOR => 'Simon Cozens <simon@simon-cozens.org>'
  31           )
  32         : ()
  33     ),
  34 );
  35
  36 if ( !-e "t/beerdb.db" ) {
  37     print "Making SQLite DB\n";
  38     eval { require DBD::SQLite };
  39     die "No, wait, we don't have SQLite installed. Never mind\n" if $@;
  40     require DBI;
  41     my $dbh = DBI->connect("dbi:SQLite:dbname=t/beerdb.db");
  42
  43     my $sql = join( '', (<DATA>) );
  44
  45     for my $statement ( split /;/, $sql ) {
  46         $statement =~ s/\#.*$//mg;           # strip # comments
  47         $statement =~ s/auto_increment//g;
  48         next unless $statement =~ /\S/;
  49         eval { $dbh->do($statement) };
  50         die "$@: $statement" if $@;
  51     }
  52 }
  53
  54 __DATA__
  55
  56 create table brewery (
  57     id integer auto_increment primary key,
  58     name varchar(30),
  59     url varchar(50),
  60     notes text
  61 );
  62
  63 create table beer (
  64     id integer auto_increment primary key,
  65     brewery integer,
  66     style integer,
  67     name varchar(30),
  68     url varchar(120),
  69 #    tasted date,
  70     score integer(2),
  71     price varchar(12),
  72     abv varchar(10),
  73     notes text
  74 );
  75
  76 create table handpump (
  77     id integer auto_increment primary key,
  78     beer integer,
  79     pub integer
  80 );
  81
  82 create table pub (
  83     id integer auto_increment primary key,
  84     name varchar(60),
  85     url varchar(120),
  86     notes text
  87 );
  88
  89 create table style (
  90     id integer auto_increment primary key,
  91     name varchar(60),
  92     notes text
  93 );
  94
  95 INSERT INTO beer (id, brewery, name, abv) VALUES
  96     (1, 1, "Organic Best Bitter", "4.1");
  97 INSERT INTO brewery (id, name, url) VALUES
  98     (1, "St Peter's Brewery", "http://www.stpetersbrewery.co.uk/");
  99 INSERT INTO pub (id, name) VALUES (1, "Turf Tavern");
 100 INSERT INTO handpump (id, pub, beer) VALUES (1, 1,1);
 101