[gentoo-commits] proj/perl-overlay:master commit in: scripts/lib/

[Kent Fredric]

commit:     723c2e4563ab8e24e219bfce8f371f73d0f26513
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Tue Feb 28 21:44:07 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Tue Feb 28 21:44:07 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=723c2e45

[scripts] factor out my simple option parsing logic to a lib

---
 scripts/lib/optparse.pm |   62 +++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 62 insertions(+), 0 deletions(-)

diff --git a/scripts/lib/optparse.pm b/scripts/lib/optparse.pm
new file mode 100644
index 0000000..296184b
--- /dev/null
+++ b/scripts/lib/optparse.pm
@@ -0,0 +1,62 @@
+use strict;
+use warnings;
+
+package optparse;
+
+# FILENAME: optparse.pm
+# CREATED: 29/02/12 07:50:47 by Kent Fredric (kentnl) <kentfredric@×××××.com>
+# ABSTRACT: Lightweight option parser;
+
+use Moose;
+
+has 'help' => ( isa => 'CodeRef',  is => 'rw', required => 1 );
+has 'argv' => ( isa => 'ArrayRef', is => 'rw', required => 1 );
+
+has 'long_opts'  => ( isa => 'HashRef',  is => 'rw', 'lazy_build' => 1 );
+has 'opts'       => ( isa => 'HashRef',  is => 'rw', lazy_build   => 1 );
+has 'extra_opts' => ( isa => 'ArrayRef', is => 'rw', 'lazy_build' => 1 );
+
+sub _build_extra_opts {
+  my $self = shift;
+  return [ grep { $_ !~ /^--(.+)/ and $_ !~ /^-(\w+)/ } @{ $self->argv } ];
+}
+
+sub _build_opts {
+  my $self = shift;
+  my $hash = {};
+  for my $arg ( @{ $self->argv } ) {
+    next if $arg =~ /^--(.+)/;
+    next unless $arg =~ /^-(\w+)/;
+    $hash->{$1}++;
+  }
+  return $hash;
+}
+
+sub _build_long_opts {
+  my $self = shift;
+  my $hash = {};
+  for my $arg ( @{ $self->argv } ) {
+    next unless $arg =~ /^--(.+)/;
+    my ($token) = "$1";
+    if ( $token =~ /^([^=]+)=(.*$)/ ) {
+      $hash->{$1} = $2;
+    }
+    else {
+      $hash->{$token}++;
+    }
+  }
+  return $hash;
+}
+
+sub BUILD {
+  my ($self) = shift;
+  if ( defined $self->opts->{h} or defined $self->long_opts->{help} ) {
+    $self->help->();
+    exit 0;
+  }
+}
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+1;
+