Added simple wrapper over module-starter.

diff --git a/config b/config
index 7208176b0ea4be190f8c76759274b6fa58a7fc8f..a736988601f1822d841cf95c0fd32d21a0afc4c5 100644 (file)
--- a/config
+++ b/config
@@ -1,3 +1,6 @@
+author         = Name Surname
+email          = author@email.info
+
 remote_user    = USER
 remote_host    = some.host
 remote_dir     = 

diff --git a/prj-create-module-perl b/prj-create-module-perl
new file mode 100755 (executable)
index 0000000..9df462c
--- /dev/null
+++ b/prj-create-module-perl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Config::General;
+
+if (! $ARGV[0]) {
+  print "Just a simple wrapper over module-starter\n";
+  print "USAGE: prj-create-module-perl.pl [Module::Name]'\n";
+  print "       Creates perl module in curent working directory.\n";
+  exit;
+}
+
+my $conf = new Config::General("config");
+my %config = $conf->getall;
+
+
+`module-starter --module="$ARGV[0]" --author="$config{author}" --email="$config{email}"`;
+