Merge branch 'generate_from_filesystem'

memowe · Aug 30, 2017 · 637edea · 637edea
2 parents 9da577a + 20dddce
commit 637edea
Show file tree

Hide file tree

Showing 13 changed files with 371 additions and 345 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,9 @@
 Revision history for perl module Contenticious
 
+0.4     TODO
+
+    - generate boilerplate from file system
+
 0.391   2017-01-31
 
     - keep up with changes in Mojo::Home (@kiwiroy)

diff --git a/Makefile.PL b/Makefile.PL
@@ -4,6 +4,9 @@ use strict;
 use warnings;
 
 use ExtUtils::MakeMaker;
+use File::ShareDir::Install;
+
+install_share dist => 'share';
 
 WriteMakefile(
     NAME                => 'Contenticious',
@@ -23,18 +26,26 @@ WriteMakefile(
 
         # core modules since 5.10
         'Carp'                                  => '1.08',
+        'Cwd'                                   => '3.62',
         'File::Basename'                        => '2.76',
+        'File::Copy'                            => '2.11',
         'File::Path'                            => '2.04',
+        'File::Spec'                            => '3.62',
         'FindBin'                               => '1.49',
         'List::Util'                            => '1.19',
 
         # non-trivial dependencies
         'File::Copy::Recursive'                 => '0.38',
+        'File::Share'                           => '0.25',
         'Mojolicious'                           => '7.0',
-        'Mojolicious::Plugin::Subdispatch'      => '0.04',
+        'Mojolicious::Plugin::AssetPack'        => '1.45',
         'Mojolicious::Plugin::RelativeUrlFor'   => '0.052',
+        'Mojolicious::Plugin::Subdispatch'      => '0.04',
         'Text::Markdown'                        => '1.000031',
     },
     EXE_FILES           => ['contenticious'],
     test                => {TESTS => 't/*.t'}
 );
+
+package MY;
+use File::ShareDir::Install 'postamble';
diff --git a/contenticious b/contenticious
@@ -4,6 +4,7 @@ use Mojo::Base -strict;
 
 use FindBin '$Bin';
 use lib "$Bin/lib";
+use Cwd;
 use Contenticious;
 use Contenticious::Generator;
 
@@ -15,7 +16,7 @@ if (defined $ARGV[0] and $ARGV[0] !~ /h(elp)?/i) {
     if ($command eq 'init') {
 
         print "generating contenticious boilerplate...\n";
-        Contenticious::Generator->new->init;
+        Contenticious::Generator->new(working_directory => cwd)->generate;
         print "done.\n";
 
         exit;