From 253e74d49ac3ec7f064aa0fc18eafc3b09cde9a4 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 20 Jul 2011 13:46:14 +0200
Subject: Use Getopt::Long

---
 bin/raps2 | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'bin/raps2')

diff --git a/bin/raps2 b/bin/raps2
index 45c6149..e3c78b0 100755
--- a/bin/raps2
+++ b/bin/raps2
@@ -9,12 +9,19 @@ use 5.010;
 use App::Raps2;
 use File::BaseDir qw(data_files data_home);
 use File::Slurp qw(read_dir);
+use Getopt::Long qw(:config no_ignore_case);
 
 my $raps2 = App::Raps2->new();
 my ( $action, @args ) = @ARGV;
 
 our $VERSION = '0.50';
 
+GetOptions(
+	'h|help'    => sub { cmd_help(0) },
+	'V|version' => sub { say "raps2 version ${VERSION}"; exit 0 },
+
+) or cmd_help(1);
+
 sub file_must_exist {
 	my ( $file, $name ) = @_;
 
@@ -225,9 +232,6 @@ given ($action) {
 	when ('info') { cmd_info(@args) }
 	when ('list') { cmd_list(@args) }
 
-	when ( [qw[version -v --version]] ) { say "raps2 version ${VERSION}" }
-	when ( [qw[help    -h --help   ]] ) { cmd_help(0) }
-
 	default { cmd_help(1) }
 }
 
-- 
cgit v1.2.3