diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-05-20 14:54:15 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-05-20 14:54:15 +0200 |
commit | 5b375768101d93054d42f9326f010d6f8019f541 (patch) | |
tree | 131be86ad1466890e7f884dbdbc0d9903fdc961f /bin/raps2 | |
parent | cafd103a950682711fdc9e155d73da7f2fc59caa (diff) |
Syntax cleanup
Diffstat (limited to 'bin/raps2')
-rwxr-xr-x | bin/raps2 | 22 |
1 files changed, 13 insertions, 9 deletions
@@ -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. |