Initial commit

Author: carimatics

.gitignore

@@ -0,0 +1,18 @@
+Makefile
+/inc/
+MANIFEST
+*.bak
+*.old
+nytprof.out
+nytprof/
+*.db
+/blib/
+pm_to_blib
+META.json
+META.yml
+MYMETA.json
+MYMETA.yml
+/Build
+/_build/
+/local/
+/.carton/

.proverc

@@ -0,0 +1,3 @@
+-l
+-r t
+-Mt::Util

Build.PL

@@ -0,0 +1,39 @@
+use strict;
+use warnings;
+use Module::Build;
+use Module::CPANfile;
+use builder::MyBuilder;
+
+my $file = Module::CPANfile->load("cpanfile");
+my $prereq = $file->prereq_specs;
+
+my $build = builder::MyBuilder->new(
+    license              => 'unknown',
+    dynamic_config       => 0,
+
+    build_requires       => {
+        $prereq->{build} ? %{$prereq->{build}->{requires}} : (),
+        $prereq->{test} ? %{$prereq->{test}->{requires}} : (),
+    },
+    configure_requires   => {
+        %{$prereq->{configure}->{requires}},
+    },
+    requires             => {
+        perl => '5.008001',
+        %{$prereq->{runtime}->{requires}},
+    },
+    script_files => [glob('script/*'), glob('bin/*')],
+
+    no_index    => { 'directory' => [ 'inc' ] },
+    name        => 'App',
+    module_name => 'App',
+    author        => 'Some Person <[email protected]>',
+    dist_abstract => 'A web site based on Amon2',
+
+    test_files => (-d '.git' || $ENV{RELEASE_TESTING}) ? 't/ xt/' : 't/',
+    recursive_test_files => 1,
+
+    create_readme  => 0,
+    create_license => 0,
+);
+$build->create_build_script();

Dockerfile

@@ -0,0 +1,4 @@
+FROM perl:5.24.1
+
+WORKDIR /webapp
+RUN cpanm Carton Amon2

builder/MyBuilder.pm

@@ -0,0 +1,26 @@
+package builder::MyBuilder;
+use strict;
+use warnings;
+use utf8;
+use 5.008_001;
+use parent qw(Module::Build);
+
+# Module:::Build's share_dir handling is not good for me.
+# We need to install 'tmpl' directories to '$DIST_DIR/tmpl'. But M::B doesn't support it.
+sub ACTION_code {
+    my $self = shift;
+    my $share_prefix = File::Spec->catdir($self->blib, qw/lib auto share dist/, 'App');
+    for my $dir (qw(tmpl static)) {
+        next unless -d $dir;
+        for my $src (@{$self->rscan_dir($dir)}) {
+            next if -d $src;
+            $self->copy_if_modified(
+                from => $src,
+                to_dir => File::Spec->catfile( $share_prefix )
+            );
+        }
+    }
+    $self->SUPER::ACTION_code();
+}
+
+1;

config/development.pl

@@ -0,0 +1,12 @@
+use File::Spec;
+use File::Basename qw(dirname);
+my $basedir = File::Spec->rel2abs(File::Spec->catdir(dirname(__FILE__), '..'));
+my $dbpath = File::Spec->catfile($basedir, 'db', 'development.db');
++{
+    'DBI' => [
+        "dbi:SQLite:dbname=$dbpath", '', '',
+        +{
+            sqlite_unicode => 1,
+        }
+    ],
+};

config/production.pl

@@ -0,0 +1,12 @@
+use File::Spec;
+use File::Basename qw(dirname);
+my $basedir = File::Spec->rel2abs(File::Spec->catdir(dirname(__FILE__), '..'));
+my $dbpath = File::Spec->catfile($basedir, 'db', 'production.db');
++{
+    'DBI' => [
+        "dbi:SQLite:dbname=$dbpath", '', '',
+        +{
+            sqlite_unicode => 1,
+        }
+    ],
+};

config/test.pl

@@ -0,0 +1,12 @@
+use File::Spec;
+use File::Basename qw(dirname);
+my $basedir = File::Spec->rel2abs(File::Spec->catdir(dirname(__FILE__), '..'));
+my $dbpath = File::Spec->catfile($basedir, 'db', 'test.db');
++{
+    'DBI' => [
+        "dbi:SQLite:dbname=$dbpath", '', '',
+        +{
+            sqlite_unicode => 1,
+        }
+    ],
+};

cpanfile

@@ -0,0 +1,27 @@
+requires 'Amon2', '6.13';
+requires 'Crypt::CBC';
+requires 'Crypt::Rijndael';
+requires 'DBD::SQLite', '1.33';
+requires 'HTML::FillInForm::Lite', '1.11';
+requires 'HTTP::Session2', '1.03';
+requires 'IO::Interface::Simple';
+requires 'JSON', '2.50';
+requires 'Module::Functions', '2';
+requires 'Plack::Middleware::ReverseProxy', '0.09';
+requires 'Router::Boom', '0.06';
+requires 'Starlet', '0.20';
+requires 'Teng', '0.18';
+requires 'Test::WWW::Mechanize::PSGI';
+requires 'Text::Xslate', '2.0009';
+requires 'Time::Piece', '1.20';
+requires 'perl', '5.010_001';
+
+
+on configure => sub {
+    requires 'Module::Build', '0.38';
+    requires 'Module::CPANfile', '0.9010';
+};
+
+on test => sub {
+    requires 'Test::More', '0.98';
+};