From 7e696298e3819b771e7a2effa330353a0b57e330 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Rafa=C5=82=20D=C5=82ugo=C5=82=C4=99cki?=
 <kontakt@dlugolecki.net.pl>
Date: Fri, 22 Mar 2013 18:38:24 +0100
Subject: [PATCH] Added simple wrapper over module-starter.

---
 config                 |  3 +++
 prj-create-module-perl | 19 +++++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100755 prj-create-module-perl

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}"`;
+
-- 
2.30.2