From 253e74d49ac3ec7f064aa0fc18eafc3b09cde9a4 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 20 Jul 2011 13:46:14 +0200 Subject: Use Getopt::Long --- Build.PL | 1 + bin/raps2 | 10 +++++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Build.PL b/Build.PL index cfaf26f..cc82474 100644 --- a/Build.PL +++ b/Build.PL @@ -22,6 +22,7 @@ my $build = Module::Build->new( 'File::BaseDir' => 0, 'File::Path' => 2.06_05, 'File::Slurp' => 0, + 'Getopt::Long' => 0, 'POSIX' => 0, 'Term::ReadLine' => 0, }, 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