From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from pigeon.gentoo.org ([208.92.234.80] helo=lists.gentoo.org) by finch.gentoo.org with esmtp (Exim 4.60) (envelope-from ) id 1S2V23-0000Lg-SK for garchives@archives.gentoo.org; Tue, 28 Feb 2012 21:56:28 +0000 Received: from pigeon.gentoo.org (localhost [127.0.0.1]) by pigeon.gentoo.org (Postfix) with SMTP id C9023E076B; Tue, 28 Feb 2012 21:55:50 +0000 (UTC) Received: from smtp.gentoo.org (smtp.gentoo.org [140.211.166.183]) by pigeon.gentoo.org (Postfix) with ESMTP id 9D9C8E076B for ; Tue, 28 Feb 2012 21:55:50 +0000 (UTC) Received: from hornbill.gentoo.org (hornbill.gentoo.org [94.100.119.163]) (using TLSv1 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by smtp.gentoo.org (Postfix) with ESMTPS id E1F211B4024 for ; Tue, 28 Feb 2012 21:55:49 +0000 (UTC) Received: from localhost.localdomain (localhost [127.0.0.1]) by hornbill.gentoo.org (Postfix) with ESMTP id 9E39CE540D for ; Tue, 28 Feb 2012 21:55:47 +0000 (UTC) From: "Kent Fredric" To: gentoo-commits@lists.gentoo.org Content-type: text/plain; charset=UTF-8 Reply-To: gentoo-dev@lists.gentoo.org, "Kent Fredric" Message-ID: <1330465500.c7b4fddfc61341e6a0e7e82e98a84e2fe0e51db8.kent@gentoo> Subject: [gentoo-commits] proj/perl-overlay:master commit in: scripts/ X-VCS-Repository: proj/perl-overlay X-VCS-Files: scripts/module_log.pl X-VCS-Directories: scripts/ X-VCS-Committer: kent X-VCS-Committer-Name: Kent Fredric X-VCS-Revision: c7b4fddfc61341e6a0e7e82e98a84e2fe0e51db8 X-VCS-Branch: master Date: Tue, 28 Feb 2012 21:55:47 +0000 (UTC) Precedence: bulk List-Post: List-Help: List-Unsubscribe: List-Subscribe: List-Id: Gentoo Linux mail X-BeenThere: gentoo-commits@lists.gentoo.org Content-Transfer-Encoding: quoted-printable X-Archives-Salt: 81d324c7-fe86-42fa-85a9-c7705016516d X-Archives-Hash: cdf7a87c39396ed4a28696a5ce0507b6 commit: c7b4fddfc61341e6a0e7e82e98a84e2fe0e51db8 Author: Kent Fredric gmail com> AuthorDate: Tue Feb 28 21:45:00 2012 +0000 Commit: Kent Fredric gmail com> CommitDate: Tue Feb 28 21:45:00 2012 +0000 URL: http://git.overlays.gentoo.org/gitweb/?p=3Dproj/perl-overlay.= git;a=3Dcommit;h=3Dc7b4fddf [scripts] Rehash module_log.pl to use optparse lib --- scripts/module_log.pl | 40 ++++++++++++---------------------------- 1 files changed, 12 insertions(+), 28 deletions(-) diff --git a/scripts/module_log.pl b/scripts/module_log.pl index 92f976b..f92ec36 100755 --- a/scripts/module_log.pl +++ b/scripts/module_log.pl @@ -9,30 +9,13 @@ use warnings; use FindBin; use lib "$FindBin::Bin/lib"; use env::gentoo::perl_experimental; +use optparse; use metacpan qw( mcpan ); =20 -my $flags; -my $singleflags; - -@ARGV =3D grep { defined } map { - $_ =3D~ /^--(.+)/ - ? do { $flags->{$1}++; undef } - : do { - $_ =3D~ /^-(.+)/ - ? do { $singleflags->{$1}++; undef } - : do { $_ } - } -} @ARGV; -for my $f ( keys %{$flags} ) { - if ( $f =3D~ /^([^=3D]+)=3D(.*$)/ ) { - $flags->{$1} =3D $2; - } -} - -if ( $flags->{help} or $singleflags->{h} ) { print help(); exit 0; } - -sub help { - return <<'EOF'; +my $optparse =3D optparse->new( + argv =3D> \@ARGV, + help =3D> sub { + return print <<'EOF'; module_log.pl =20 USAGE: @@ -75,7 +58,8 @@ USAGE: # =20 EOF -} + }, +); =20 # FILENAME: module_log.pl # CREATED: 25/10/11 12:15:51 by Kent Fredric (kentnl) @@ -88,17 +72,17 @@ EOF =20 use Data::Dump qw( pp ); =20 -my ($release) =3D shift(@ARGV); +my ($release) =3D shift( $optparse->extra_opts ); =20 -my (@data) =3D metacpan->find_dist_simple( $release, $flags ); -if( not $flags->{dump} ) { +my (@data) =3D metacpan->find_dist_simple( $release, $optparse->long_opt= s ); +if ( not $optparse->long_opts->{dump} ) { my $result =3D [ map { $_->{as_string} } @data ]; =20 use JSON qw( to_json ); say to_json( $result, { pretty =3D> 1 } ); -} else { +} +else { pp $_ for @data; } 1; =20 -