From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Thu, 26 Mar 2015 09:12:04 +0000 (+0100)
Subject: templates/TEMPLATE.pl.tpl: use hash for GetOpt::Long params.
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=15d9ebe98d9b78279d1f7e2fdd9b773f482b0088;p=emacsconfig.git

templates/TEMPLATE.pl.tpl: use hash for GetOpt::Long params.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/templates/TEMPLATE.pl.tpl b/templates/TEMPLATE.pl.tpl
index eb2dacce..b67f711a 100644
--- a/templates/TEMPLATE.pl.tpl
+++ b/templates/TEMPLATE.pl.tpl
@@ -4,6 +4,8 @@ use warnings;
 use Getopt::Long;
 use Pod::Usage;
 
+my %params;
+
 =head1 NAME
 
 (>>>FILE<<<) -
@@ -14,6 +16,8 @@ use Pod::Usage;
 
 =head1 SYNOPSIS
 
+=head1 EXAMPLES
+
 =head1 SUBS
 
 =head2 main
@@ -21,17 +25,16 @@ use Pod::Usage;
 =cut
 
 sub main {
-    my ( $help, $man, $verbose );
 
     my $result = GetOptions (
-	"help|h"    => \$help,
-	"verbose|v"   =>  \$verbose,
-	"man|m"      => \$man
-	);
+			     "help|h"		=> \$params{help},
+			     "verbose|v"        => \$params{verbose},
+			     "man|m"		=> \$params{man}
+			    );
 
-    if ( $man ) { pod2usage( -verbose => 2 ); }
+    if ( $params{man} ) { pod2usage( -verbose => 2 ); }
 
-    if ( ! ( $server ) || $help )
+    if ( ! ( $server ) || $params{help} )
     {
 	pod2usage(1);
     }