From: Rafał Długołęcki <kontakt@dlugolecki.net.pl>
Date: Fri, 22 Mar 2013 17:38:24 +0000 (+0100)
Subject: Added simple wrapper over module-starter.
X-Git-Tag: 0.1~1
X-Git-Url: https://git.dlugolecki.net.pl/?a=commitdiff_plain;h=7e696298e3819b771e7a2effa330353a0b57e330;p=prj-utils.git

Added simple wrapper over module-starter.
---

diff --git a/config b/config
index 7208176..a736988 100644
--- 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
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}"`;
+