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::FromCGI              => 0.94,
  15         Class::DBI::Loader::Relationship => 0,
  16         Class::DBI                       => 0.96,
  17         Class::DBI::SQLite               => 0,
  18         CGI::Untaint                     => 1.26,
  19         CGI::Untaint::date               => 0,
  20         CGI::Untaint::email              => 0,
  21         UNIVERSAL::moniker               => 0,
  22         UNIVERSAL::require               => 0,
  23         URI                              => 0,
  24         URI::QueryParam                  => 0,
  25         CGI::Simple                      => 0,
  26         HTTP::Body                       => 0.5,
  27         HTML::Element                    => 0,
  28         HTTP::Headers                    => 1.59,
  29         Template                         => 0,
  30         Template::Plugin::Class          => 0,
  31         Test::MockModule                 => 0,
  32         Digest::MD5                      => 0,
  33         File::MMagic::XS                => 0.08,
  34         Class::DBI::Plugin::Type        => 0,
  35     },    # e.g., Module::Name => 1.1
  36     (
  37         $] >= 5.005
  38         ?    ## Add these new keywords supported since 5.005
  39           (
  40             ABSTRACT_FROM => 'lib/Maypole.pm',   # retrieve abstract from module
  41             AUTHOR => 'Aaron TEEJAY Trevena <teejay#droogs.org>'
  42           )
  43         : ()
  44     ),
  45 );
  46
  47 sub has_module {
  48     my ($module, $version) = @_;
  49     (my $file = "$module.pm") =~ s/::/\//g;
  50     eval {require $file} or return;
  51     return ($module->VERSION || 0) >= $version;
  52 }
  53
  54 if ( !-e "t/beerdb.db" ) {
  55     print "Making SQLite DB\n";
  56     my $driver = 'SQLite';
  57     eval { require DBD::SQLite } or do {
  58         print "Error loading DBD::SQLite, trying DBD::SQLite2\n";
  59         eval {require DBD::SQLite2} ? $driver = 'SQLite2'
  60             : die "DBD::SQLite2 is not installed";
  61     };
  62     require DBI;
  63     my $dbh = DBI->connect("dbi:$driver:dbname=t/beerdb.db");
  64     my $sql = join( '', (<DATA>) );
  65
  66     for my $statement ( split /;/, $sql ) {
  67         $statement =~ s/\#.*$//mg;           # strip # comments
  68         $statement =~ s/auto_increment//g;
  69         next unless $statement =~ /\S/;
  70         eval { $dbh->do($statement) };
  71         die "$@: $statement" if $@;
  72     }
  73 }
  74
  75 __DATA__
  76
  77 create table brewery (
  78     id integer auto_increment primary key,
  79     name varchar(30),
  80     url varchar(50),
  81     notes text
  82 );
  83
  84 create table beer (
  85     id integer auto_increment primary key,
  86     brewery integer,
  87     style integer,
  88     name varchar(30),
  89     url varchar(120),
  90 #    tasted date,
  91     score integer(2),
  92     price varchar(12),
  93     abv varchar(10),
  94     notes text
  95 );
  96
  97 create table handpump (
  98     id integer auto_increment primary key,
  99     beer integer,
 100     pub integer
 101 );
 102
 103 create table pub (
 104     id integer auto_increment primary key,
 105     name varchar(60),
 106     url varchar(120),
 107     notes text
 108 );
 109
 110 create table style (
 111     id integer auto_increment primary key,
 112     name varchar(60),
 113     notes text
 114 );
 115
 116 INSERT INTO beer (id, brewery, name, abv) VALUES
 117     (1, 1, "Organic Best Bitter", "4.1");
 118 INSERT INTO brewery (id, name, url) VALUES
 119     (1, "St Peter's Brewery", "http://www.stpetersbrewery.co.uk/");
 120 INSERT INTO pub (id, name) VALUES (1, "Turf Tavern");
 121 INSERT INTO handpump (id, pub, beer) VALUES (1, 1,1);
 122