From 5b375768101d93054d42f9326f010d6f8019f541 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 20 May 2011 14:54:15 +0200 Subject: Syntax cleanup --- bin/raps2 | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) (limited to 'bin/raps2') diff --git a/bin/raps2 b/bin/raps2 index 71ccbea..27dcdbc 100755 --- a/bin/raps2 +++ b/bin/raps2 @@ -9,21 +9,21 @@ use 5.010; use App::Raps2; my $raps2 = App::Raps2->new(); -my ($action, @args) = @ARGV; +my ( $action, @args ) = @ARGV; -my $VERSION = '0.3'; +our $VERSION = '0.3'; $raps2->sanity_check(); $raps2->load_config(); given ($action) { - when ('add') { $raps2->cmd_add(@args) } - when ('del') { $raps2->cmd_remove(@args) } - when ('dump') { $raps2->cmd_dump(@args) } - when ('edit') { $raps2->cmd_edit(@args) } - when ('get') { $raps2->cmd_get(@args) } - when ('info') { $raps2->cmd_info(@args) } - when ('list') { $raps2->cmd_list(@args) } + when ('add') { $raps2->cmd_add(@args) } + when ('del') { $raps2->cmd_remove(@args) } + when ('dump') { $raps2->cmd_dump(@args) } + when ('edit') { $raps2->cmd_edit(@args) } + when ('get') { $raps2->cmd_get(@args) } + when ('info') { $raps2->cmd_info(@args) } + when ('list') { $raps2->cmd_list(@args) } when ('version') { say "raps2 version ${VERSION}" } } @@ -92,6 +92,10 @@ List all saved accounts with their respective Logins and URLs =back +=head1 OPTIONS + +None. + =head1 EXIT STATUS zero on success, non-zero otherwise. -- cgit v1.2.3