开源软件构建与测试

_service:tar_scm:perl-Getopt-Long.spec Changed

_service:tar_scm:Getopt-Long-2.54.tar.gz/INSTALL Deleted

@@ -1,35 +0,0 @@
-INSTALLATION
-============
-
-First unpack the kit, if you have not already done so:
-
-   gzip -d < Getopt-Long-x.y.tar.gz | tar xf -
-   cd Getopt-Long-x.y
-
-Getopt::Long can be installed with:
-
-   perl Makefile.PL
-   make all test
-   make install
-
-This will install Getopt/Long.pm, newgetopt.pl and the Getopt::Long
-documentation. Note that "make install" will usually require super
-user privilege unless your Perl is installed in a location you have
-write access to.
-
-It is also possible to use the CPAN or CPANPLUS tools to install
-Getopt::Long directly from CPAN, e.g.,
-
-  perl -MCPAN -e "install Getopt::Long"
-
-RPM fans can try "rpm -ta Getopt-Long-x.y.tar.gz".
-
-The kit contains an "examples" directory with some program skeleton
-files that can be used to start writing application programs. It uses
-Getopt::Long in a standard way, automatically providing version and
-help information. For the latter, it uses the Pod::Usage module to
-extracts help texts from the embedded documentation. The Pod::Usage
-module is part of standard Perl as of Perl version 5.6. For older
-versions of Perl, it can be fetched from CPAN. Use
-http://search.cpan.org/search?dist=Pod-Parser.
-

_service:tar_scm:Getopt-Long-2.54.tar.gz/README Deleted

@@ -1,133 +0,0 @@
-Module Getopt::Long - extended processing of command line options
-=================================================================
-
-Module Getopt::Long implements an extended getopt function called
-GetOptions(). This function implements the POSIX standard for command
-line options, with GNU extensions, while still capable of handling
-the traditional one-letter options.
-In general, this means that command line options can have long names
-instead of single letters, and are introduced with a double dash `--'.
-
-Optionally, Getopt::Long can support the traditional bundling of
-single-letter command line options.
-
-Getopt::Long is part of the Perl 5 distribution. It is the successor
-of newgetopt.pl that came with Perl 4. It is fully upward compatible.
-In fact, the Perl 5 version of newgetopt.pl is just a wrapper around
-the module.
-
-For complete documentation, see "https://metacpan.org/release/Getopt-Long"
-or use the command
-
-    perldoc Getopt::Long
-
-FEATURES
-========
-
-* Long option names
-
-Major advantage of using long option names is that it is much easier
-to memorize the option names. Using single-letter names one quickly
-runs into the problem that there is no logical relationship between
-the semantics of the selected option and its option letter.
-Disadvantage is that it requires more typing. Getopt::Long provides
-for option name abbreviation, so option names may be abbreviated to
-uniqueness. Also, modern shells like Cornell's tcsh support option
-name completion. As a rule of thumb, you can use abbreviations freely
-while running commands interactively but always use the full names in
-scripts. 
-
-Examples (POSIX):
-
-    --long --width=80 --height=24
-
-Extensions:
-
-    -long (convenience) +width=80 (deprecated) -height 24 (traditional)
-
-By default, long option names are case insensitive.
-
-* Single-letter options and bundling
-
-When single-letter options are requested, Getopt::Long allows the
-option names to be bundled, e.g. "-abc" is equivalent to "-a -b -c".
-In this case, long option names must be introduced with the POSIX "--"
-introducer.
-
-Examples:
-
-    -lgAd (bundle) -xw 80 (bundle, w takes a value) -xw80 (same)
-    even -l24w80 (l = 24 and w = 80)
-
-By default, single-letter option names are case sensitive.
-
-* Flexibility:
-
-  - Options can have alternative names, using an alternative name
-    will behave as if the primary name was used.
-  - Options can be negatable, e.g. "debug" will switch it on, while
-    "nodebug" will switch it off.    
-  - Options can set values, but also add values producing an array
-    of values instead of a single scalar value, or set values in a hash.
-  - Options can have multiple values, e.g., "--position 25 624".
-
-* Options linkage
-
-Using Getopt::Long gives the programmer ultimate control over the
-command line options and how they must be handled:
-
-  - By setting a global variable in the calling program.
-  - By setting a specified variable.
-  - By entering the option name and the value in an associative array
-    (hash) or object (if it is a blessed hash).
-  - By calling a user-specified subroutine with the option name and
-    the value as arguments (for hash options: the name, key and value);
-  - Combinations of the above.
-
-* Customization:
-
-The module can be customized by specifying settings in the 'use'
-directive, or by calling a special method, Getopt::Long::Configure.
-For example, the following two cases are functionally equal:
-
-    use Getopt::Long qw(:config bundling no_ignore_case);
-
-and
-
-    use Getopt::Long;
-    Getopt::Long::Configure qw(bundling no_ignore_case);
-
-See the documentation for all possibilities.
-
-* Object oriented interface:
-
-Using the object oriented interface, multiple parser objects can be
-instantiated, each having their own configuration settings:
-
-    $p1 = new Getopt::Long::Parser (config => "bundling");
-    $p2 = new Getopt::Long::Parser (config => "posix");
-    if ($p1->getoptions(...options descriptions...)) ...
-
-AVAILABILITY
-============
-
-The official version for module Getopt::Long comes with the Perl 5
-distribution. 
-Newer versions will be made available on the Comprehensive Perl Archive
-Network (CPAN), see "https://metacpan.org/release/Getopt-Long".
-
-COPYRIGHT AND DISCLAIMER
-========================
-
-Module Getopt::Long is Copyright 2013,1990 by Johan Vromans.
-This program is free software; you can redistribute it and/or
-modify it under the terms of the Perl Artistic License or the
-GNU General Public License as published by the Free Software
-Foundation; either version 2 of the License, or (at your option) any
-later version.
-
--------------------------------------------------------------------
-Johan Vromans                                  jvromans@squirrel.nl
-Squirrel Consultancy                         Exloo, the Netherlands
-https://www.squirrel.nl                   https://johan.vromans.org
------------------- "Arms are made for hugging" --------------------

_service:tar_scm:Getopt-Long-2.54.tar.gz/Changes -> _service:tar_scm:Getopt-Long-2.57.tar.gz/Changes Changed

@@ -1,7 +1,37 @@
+Changes in version 2.57
+-----------------------
+
+* Adapt tests for perl core, thanks to James Keenan.
+  Packaging changes only, no functional changes.
+
+Changes in version 2.56
+-----------------------
+
+* Do not use Getopt::Long to establish Getopt::Long::Parser version.
+  Packaging changes only, no functional changes.
+
+Changes in version 2.55
+-----------------------
+
+* Move Getopt::Long::Parser to a separate module and add
+  documentation. Note that Getopt::Long uses Getopt::Long::Parser, so
+  programs that use Getopt::Long and call the oo interface will still
+  work.
+
+* Allow periods in option names, e.g. to indicate levels in a
+  hierarchical configuration. Since periods in option names have never
+  been valid, they are now allowed by default unless pass_through is
+  enabled.
+
+* Fix long standing bug that duplicate options were not detected when
+  the options differ in case while ignore_case is in effect.
+  This will now yield a warning and become a fatal error in a future
+  release.
+
 Changes in version 2.54
 -----------------------
 
-* Fix compatibility with Perl 5.8.
+* Small fix for 5.8 compatibility. Thanks to Graham Knop.
 
 Changes in version 2.53
 -----------------------

_service:tar_scm:Getopt-Long-2.54.tar.gz/MANIFEST -> _service:tar_scm:Getopt-Long-2.57.tar.gz/MANIFEST Changed

_service:tar_scm:Getopt-Long-2.54.tar.gz/META.json -> _service:tar_scm:Getopt-Long-2.57.tar.gz/META.json Changed

@@ -4,7 +4,7 @@
       "Johan Vromans (jvromans@squirrel.nl)"
    ,
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version 2.150010",
+   "generated_by" : "ExtUtils::MakeMaker version 7.66, CPAN::Meta::Converter version 2.150010",
    "license" : 
       "unknown"
    ,
@@ -17,6 +17,9 @@
       "directory" : 
          "t",
          "inc"
+      ,
+      "package" : 
+         "Getopt::Long::CallBack"
       
    },
    "prereqs" : {
@@ -38,12 +41,15 @@
    },
    "release_status" : "stable",
    "resources" : {
+      "bugtracker" : {
+         "web" : "https://github.com/sciurius/perl-Getopt-Long/issues"
+      },
       "repository" : {
          "type" : "git",
          "url" : "https://github.com/sciurius/perl-Getopt-Long.git",
          "web" : "https://github.com/sciurius/perl-Getopt-Long"
       }
    },
-   "version" : "2.54",
-   "x_serialization_backend" : "JSON::PP version 4.06"
+   "version" : 2.57,
+   "x_serialization_backend" : "JSON::PP version 4.11"
 }

_service:tar_scm:Getopt-Long-2.54.tar.gz/META.yml -> _service:tar_scm:Getopt-Long-2.57.tar.gz/META.yml Changed

_service:tar_scm:Getopt-Long-2.54.tar.gz/Makefile.PL -> _service:tar_scm:Getopt-Long-2.57.tar.gz/Makefile.PL Changed

@@ -1,9 +1,8 @@
 # Makefile.PL -- Makefile generator for Getopt::Long
 # Author          : Johan Vromans
 # Created On      : Sat Mar 16 11:43:21 1996
-# Last Modified By: Johan Vromans
-# Last Modified On: Thu Nov 17 17:45:51 2022
-# Update Count    : 124
+# Last Modified On: Thu Nov  9 23:08:55 2023
+# Update Count    : 132
 # Status          : Unknown, Use with caution!
 
 use Config;
@@ -11,7 +10,7 @@
 
 use lib "./lib";
 use Getopt::Long;
-my $version = "2.54";
+my $version = $Getopt::Long::VERSION;
 
 my $mm_version = $ExtUtils::MakeMaker::VERSION;
 if ($mm_version =~ /_/) {
@@ -95,8 +94,9 @@
         ),
 
 	INSTALLDIRS => ($ < 5.011 ? 'perl' : 'site'),
-	PM 	  => { "lib/newgetopt.pl"  => '$(INST_LIB)/newgetopt.pl',
+	PM 	  => { "lib/newgetopt.pl"   => '$(INST_LIB)/newgetopt.pl',
 		       "lib/Getopt/Long.pm" => '$(INST_LIB)/Getopt/Long.pm',
+		       "lib/Getopt/Long/Parser.pm" => '$(INST_LIB)/Getopt/Long/Parser.pm',
 		     },
 	dist      => { COMPRESS => 'gzip', SUFFIX => 'gz',
 		     },
@@ -105,12 +105,18 @@
         ($mm_version <= 6.45) ? () : (
             META_MERGE => {
                 'meta-spec' => { version => 2 },
+		no_index => {
+		    package =>  qw(Getopt::Long::CallBack) ,
+		},
                 resources => {
                     repository => {
                         type => "git",
                         url => "https://github.com/sciurius/perl-Getopt-Long.git",
                         web => "https://github.com/sciurius/perl-Getopt-Long",
                     },
+                    bugtracker => {
+                        web => "https://github.com/sciurius/perl-Getopt-Long/issues",
+                    },
                 },
             },
         ),

_service:tar_scm:Getopt-Long-2.57.tar.gz/README.md Added

@@ -0,0 +1,200 @@
+# Getopt::Long
+
+*Perl module for Extended processing of command line options*
+
+!Version(https://img.shields.io/github/v/release/sciurius/perl-Getopt-Long)
+!GitHub issues(https://img.shields.io/github/issues/sciurius/perl-Getopt-Long)
+!PRs Welcome(https://img.shields.io/badge/PRs-welcome-brightgreen.svg)(http://makeapullrequest.com)
+!Language Perl(https://img.shields.io/badge/Language-Perl-blue)
+
+## Introduction
+
+Module Getopt::Long implements an extended getopt function called
+GetOptions(). This function implements the POSIX standard for command
+line options, with GNU extensions, while still capable of handling
+the traditional one-letter options.
+In general, this means that command line options can have long names
+instead of single letters, and are introduced with a double dash `--`.
+
+Optionally, Getopt::Long can support the traditional bundling of
+single-letter command line options.
+
+Getopt::Long is part of the Perl 5 distribution. It is the successor
+of newgetopt.pl that came with Perl 4. It is fully upward compatible.
+In fact, the Perl 5 version of newgetopt.pl is just a wrapper around
+the module.
+
+For complete documentation, see
+MetaCPAN(https://metacpan.org/release/Getopt-Long)
+or use the command
+
+    perldoc Getopt::Long
+
+## Features
+
+### Long option names
+
+Major advantage of using long option names is that it is much easier
+to memorize the option names. Using single-letter names one quickly
+runs into the problem that there is no logical relationship between
+the semantics of the selected option and its option letter.
+Disadvantage is that it requires more typing. Getopt::Long provides
+for option name abbreviation, so option names may be abbreviated to
+uniqueness. Also, modern shells like Cornell's tcsh support option
+name completion. As a rule of thumb, you can use abbreviations freely
+while running commands interactively but always use the full names in
+scripts. 
+
+Examples (POSIX):
+
+`--long`  
+`--width=80`  
+`--height=24`
+
+Extensions:
+
+`-long` (*convenience*)  
+`+width=80` (*deprecated*)  
+`-height 24` (*traditional*)
+
+By default, long option names are case insensitive.
+
+### Single-letter options and bundling
+
+When single-letter options are requested, Getopt::Long allows the
+option names to be bundled, e.g. `-abc` is equivalent to `-a -b -c`.
+In this case, long option names must be introduced with the POSIX `--`
+introducer.
+
+Examples:
+
+`-lgAd` (*bundle*)  
+`-xw 80` (*bundle, w takes a value*)  
+`-xw80` (*same*)  
+`-l24w80` (*l = 24 and w = 80*)
+
+By default, single-letter option names are case sensitive.
+
+### Flexibility:
+
+  - Options can have alternative names, using an alternative name
+    will behave as if the primary name was used.
+  - Options can be negatable, e.g. `--debug` will switch it on, while
+    `--no-debug` will switch it off.  
+  - Options can set values, but also add values producing an array
+    of values instead of a single scalar value, or set values in a hash.
+  - Options can have multiple values, e.g., `--position 25 624`.
+
+### Options linkage
+
+Using Getopt::Long gives the programmer ultimate control over the
+command line options and how they must be handled:
+
+  - By setting a global variable in the calling program.
+  - By setting a specified variable.
+  - By entering the option name and the value in an associative array
+    (hash) or object (if it is a blessed hash).
+  - By calling a user-specified subroutine with the option name and
+    the value as arguments (for hash options: the name, key and value);
+  - Combinations of the above.
+
+### Customization:
+
+The module can be customized by specifying settings in the `use`
+directive, or by calling a special method, Getopt::Long::Configure.
+For example, the following two cases are functionally equal:
+
+    use Getopt::Long qw(:config bundling no_ignore_case);
+
+and
+
+    use Getopt::Long;
+    Getopt::Long::Configure qw(bundling no_ignore_case);
+
+See the documentation for all possibilities.
+
+### Object oriented interface:
+
+Using the object oriented interface, multiple parser objects can be
+instantiated, each having their own configuration settings:
+
+    use Getopt::Long::Parser;
+    $p1 = Getopt::Long::Parser->new(config => "bundling");
+    $p2 = Getopt::Long::Parser->new(config => "posix");
+    if ($p1->getoptions(...options descriptions...)) ...
+
+## Installation
+
+The official version for module Getopt::Long comes pre-installed with the Perl 5
+distribution. 
+Newer versions will be made available on the Comprehensive Perl Archive
+Network (CPAN), see
+MetaCPAN(https://metacpan.org/release/Getopt-Long).
+
+### Install directly from CPAN
+
+Use the `cpan` or `cpanm` tools:
+
+    cpan Getopt::Long
+
+### Install from a (downloaded) CPAN kit
+
+Unpack the kit and `cd` into the unpacked directory. Issue the
+following commands:
+
+    perl Makefile.PL
+    make all test
+    make install
+
+### Install from the (cloned) repository
+
+`cd` into the checked out repository and issue the following commands:
+
+    perl Makefile.PL
+    make all test
+    make install
+
+### Examples
+
+The kit contains an `examples` directory with some program skeleton
+files that can be used to start writing application programs. It uses
+Getopt::Long in a standard way, automatically providing version and
+help information. For the latter, it uses the Pod::Usage module to
+extracts help texts from the embedded documentation.
+
+The `examples` directory and the skeleton files are **not** installed.
+
+## Development
+
+Getopt::Long is a standard Perl5 (core) module, but maintained
+separately.
+
+Development is hosted on Github, 
+https://github.com/sciurius/perl-Getopt-Long .
+Please use the Github bug tracker
+https://github.com/sciurius/perl-Getopt-Long/issues
+to report issues.
+
+Note that this source tree contains a Makefile.PL (for Perl) and a
+GNUmakefile (for development).
+
+Relevant targets of the GNUmakefile are
+
+* `test` : runs the standard tests
+
+* `regtest` : runs the extended regression tests
+
+* `dist` : creates a new tar.gz distribution
+
+A Github release is a snapshot of this repository. An
+official CPAN release must be made with the `dist` target of the
+GNUmakefile.
+
+## Copyright and Disclaimer
+
+Perl module Getopt::Long is Copyright 1990,2013,2023 by Johan Vromans.
+This program is free software; you can redistribute it and/or
+modify it under the terms of the Perl Artistic License or the
+GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License, or (at your option) any

_service:tar_scm:Getopt-Long-2.57.tar.gz/lib/Getopt/Long Added

_service:tar_scm:Getopt-Long-2.54.tar.gz/lib/Getopt/Long.pm -> _service:tar_scm:Getopt-Long-2.57.tar.gz/lib/Getopt/Long.pm Changed

@@ -3,31 +3,24 @@
 # Getopt::Long.pm -- Universal options parsing
 # Author          : Johan Vromans
 # Created On      : Tue Sep 11 15:00:12 1990
-# Last Modified By: Johan Vromans
-# Last Modified On: Thu Nov 17 17:45:27 2022
-# Update Count    : 1777
+# Last Modified On: Sat Nov 11 17:48:41 2023
+# Update Count    : 1808
 # Status          : Released
 
 ################ Module Preamble ################
 
-# There are no CPAN testers for very old versions of Perl.
-# Getopt::Long is reported to run under 5.8.
-use 5.004;
+# Getopt::Long is reported to run under 5.6.1. Thanks Tux!
+use 5.006001;
 
 use strict;
 use warnings;
 
 package Getopt::Long;
 
-use vars qw($VERSION);
-$VERSION        =  2.54;
-# For testing versions only.
-use vars qw($VERSION_STRING);
-$VERSION_STRING = "2.54";
+our $VERSION = 2.57;
 
 use Exporter;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
-@ISA = qw(Exporter);
+use base qw(Exporter);
 
 # Exported subroutines.
 sub GetOptions(@);		# always
@@ -37,21 +30,24 @@
 sub HelpMessage(@);		# on demand
 sub VersionMessage(@);		# in demand
 
+our @EXPORT;
+our @EXPORT_OK;
+# Values for $order. See GNU getopt.c for details.
+our ($REQUIRE_ORDER, $PERMUTE, $RETURN_IN_ORDER);
 BEGIN {
-    # Init immediately so their contents can be used in the 'use vars' below.
+    ($REQUIRE_ORDER, $PERMUTE, $RETURN_IN_ORDER) = (0..2);
     @EXPORT    = qw(&GetOptions $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER);
     @EXPORT_OK = qw(&HelpMessage &VersionMessage &Configure
 		    &GetOptionsFromArray &GetOptionsFromString);
 }
 
 # User visible variables.
-use vars @EXPORT, @EXPORT_OK;
-use vars qw($error $debug $major_version $minor_version);
+our ($error, $debug, $major_version, $minor_version);
 # Deprecated visible variables.
-use vars qw($autoabbrev $getopt_compat $ignorecase $bundling $order
-	    $passthrough);
+our ($autoabbrev, $getopt_compat, $ignorecase, $bundling, $order,
+     $passthrough);
 # Official invisible variables.
-use vars qw($genprefix $caller $gnu_compat $auto_help $auto_version $longprefix);
+our ($genprefix, $caller, $gnu_compat, $auto_help, $auto_version, $longprefix);
 
 # Really invisible variables.
 my $bundling_values;
@@ -125,97 +121,29 @@
 
 ################ Initialization ################
 
-# Values for $order. See GNU getopt.c for details.
-($REQUIRE_ORDER, $PERMUTE, $RETURN_IN_ORDER) = (0..2);
 # Version major/minor numbers.
 ($major_version, $minor_version) = $VERSION =~ /^(\d+)\.(\d+)/;
 
 ConfigDefaults();
 
-################ OO Interface ################
-
-package Getopt::Long::Parser;
-
 # Store a copy of the default configuration. Since ConfigDefaults has
 # just been called, what we get from Configure is the default.
 my $default_config = do {
     Getopt::Long::Configure ()
 };
 
-sub new {
-    my $that = shift;
-    my $class = ref($that) || $that;
-    my %atts = @_;
-
-    # Register the callers package.
-    my $self = { caller_pkg => (caller)0 };
-
-    bless ($self, $class);
-
-    # Process config attributes.
-    if ( defined $atts{config} ) {
-	my $save = Getopt::Long::Configure ($default_config, @{$atts{config}});
-	$self->{settings} = Getopt::Long::Configure ($save);
-	delete ($atts{config});
-    }
-    # Else use default config.
-    else {
-	$self->{settings} = $default_config;
-    }
-
-    if ( %atts ) {		# Oops
-	die(__PACKAGE__.": unhandled attributes: ".
-	    join(" ", sort(keys(%atts)))."\n");
-    }
+# For the parser only.
+sub _default_config { $default_config }
 
-    $self;
-}
-
-sub configure {
-    my ($self) = shift;
-
-    # Restore settings, merge new settings in.
-    my $save = Getopt::Long::Configure ($self->{settings}, @_);
-
-    # Restore orig config and save the new config.
-    $self->{settings} = Getopt::Long::Configure ($save);
-}
-
-sub getoptions {
-    my ($self) = shift;
-
-    return $self->getoptionsfromarray(\@ARGV, @_);
-}
-
-sub getoptionsfromarray {
-    my ($self) = shift;
-
-    # Restore config settings.
-    my $save = Getopt::Long::Configure ($self->{settings});
-
-    # Call main routine.
-    my $ret = 0;
-    $Getopt::Long::caller = $self->{caller_pkg};
+################ Back to Normal ################
 
-    eval {
-	# Locally set exception handler to default, otherwise it will
-	# be called implicitly here, and again explicitly when we try
-	# to deliver the messages.
-	local ($SIG{__DIE__}) = 'DEFAULT';
-	$ret = Getopt::Long::GetOptionsFromArray (@_);
-    };
-
-    # Restore saved settings.
-    Getopt::Long::Configure ($save);
-
-    # Handle errors and return value.
-    die ($@) if $@;
-    return $ret;
+# The ooparser was traditionally part of the main package.
+no warnings 'redefine';
+sub Getopt::Long::Parser::new {
+    require Getopt::Long::Parser;
+    goto &Getopt::Long::Parser::new;
 }
-
-package Getopt::Long;
-
-################ Back to Normal ################
+use warnings 'redefine';
 
 # Indices in option control info.
 # Note that ParseOptions uses the fields directly. Search for 'hard-wired'.
@@ -305,7 +233,7 @@
 	# Avoid some warnings if debugging.
 	local ($^W) = 0;
 	print STDERR
-	  ("Getopt::Long $Getopt::Long::VERSION_STRING ",
+	  ("Getopt::Long $VERSION ",
 	   "called from package \"$pkg\".",
 	   "\n  ",
 	   "argv: ",
@@ -806,11 +734,15 @@
 sub ParseOptionSpec ($$) {
     my ($opt, $opctl) = @_;
 
+    # Allow period in option name unless passing through,
+    my $op = $passthrough
+      ? qr/(?: \w+-\w* )/x : qr/(?: \w+-.\w* )/x;
+
     # Match option spec.
     if ( $opt !~ m;^
 		   (
 		     # Option name
-		     (?: \w+-\w* )
+		     $op
 		     # Aliases

_service:tar_scm:Getopt-Long-2.57.tar.gz/lib/Getopt/Long/Parser.pm Added

@@ -0,0 +1,177 @@
+#! perl
+
+# Parser.pm -- Getopt::Long object oriented interface
+# Author          : Johan Vromans
+# Created On      : Thu Nov  9 10:37:00 2023
+# Last Modified On: Sat Nov 11 17:48:49 2023
+# Update Count    : 13
+# Status          : Released
+
+package Getopt::Long::Parser;
+
+our $VERSION = 2.57;
+
+=head1 NAME
+
+Getopt::Long::Parser - Getopt::Long object oriented interface
+
+=head1 SYNOPSIS
+
+    use Getopt::Long::Parser;
+    my $p = Getopt::Long::Parser->new;
+    $p->configure( ...configuration options... );
+    if ( $p->getoptions( ...options descriptions... ) ) ...
+    if ( $p->getoptionsfromarray( \@array, ...options descriptions... ) ) ...
+
+Configuration options can be passed to the constructor:
+
+    my $p = Getopt::Long::Parser->new
+             config => ...configuration options...;
+
+=head1 DESCRIPTION
+
+Getopt::Long::Parser is an object oriented interface to
+L<Getopt::Long>. See its documentation for configuration and use.
+
+Note that Getopt::Long and Getopt::Long::Parser are not object
+oriented. Getopt::Long::Parser emulates an object oriented interface,
+which should be okay for most purposes.
+
+=head1 CONSTRUCTOR
+
+    my $p = Getopt::Long::Parser->new( %options );
+
+The constructor takes an optional hash with parameters.
+
+=over 4
+
+=item config
+
+An array reference with configuration settings.
+See L<Getopt::Long/"Configuring Getopt::Long"> for all possible settings.
+
+=back
+
+=cut
+
+# Getopt::Long has a stub for Getopt::Long::Parser::new.
+use Getopt::Long ();
+no warnings 'redefine';
+
+sub new {
+    my $that = shift;
+    my $class = ref($that) || $that;
+    my %atts = @_;
+
+    # Register the callers package.
+    my $self = { caller_pkg => (caller)0 };
+
+    bless ($self, $class);
+
+    my $default_config = Getopt::Long::_default_config();
+
+    # Process config attributes.
+    if ( defined $atts{config} ) {
+	my $save = Getopt::Long::Configure ($default_config, @{$atts{config}});
+	$self->{settings} = Getopt::Long::Configure ($save);
+	delete ($atts{config});
+    }
+    # Else use default config.
+    else {
+	$self->{settings} = $default_config;
+    }
+
+    if ( %atts ) {		# Oops
+	die(__PACKAGE__.": unhandled attributes: ".
+	    join(" ", sort(keys(%atts)))."\n");
+    }
+
+    $self;
+}
+
+use warnings 'redefine';
+
+=head1 METHODS
+
+In the examples, $p is assumed to be the result of a call to the constructor.
+
+=head2 configure
+
+    $p->configure( %settings );
+
+Update the current config settings.
+See L<Getopt::Long/"Configuring Getopt::Long"> for all possible settings.
+
+=cut
+
+sub configure {
+    my ($self) = shift;
+
+    # Restore settings, merge new settings in.
+    my $save = Getopt::Long::Configure ($self->{settings}, @_);
+
+    # Restore orig config and save the new config.
+    $self->{settings} = Getopt::Long::Configure ($save);
+}
+
+=head2 getoptionsfromarray
+
+    $res = $p->getoptionsfromarray( $aref, @opts );
+
+=head2 getoptions
+
+    $res = $p->getoptions( @opts );
+
+The same as getoptionsfromarray( \@ARGV, @opts ).
+
+=cut
+
+sub getoptions {
+    my ($self) = shift;
+
+    return $self->getoptionsfromarray(\@ARGV, @_);
+}
+
+sub getoptionsfromarray {
+    my ($self) = shift;
+
+    # Restore config settings.
+    my $save = Getopt::Long::Configure ($self->{settings});
+
+    # Call main routine.
+    my $ret = 0;
+    $Getopt::Long::caller = $self->{caller_pkg};
+
+    eval {
+	# Locally set exception handler to default, otherwise it will
+	# be called implicitly here, and again explicitly when we try
+	# to deliver the messages.
+	local ($SIG{__DIE__}) = 'DEFAULT';
+	$ret = Getopt::Long::GetOptionsFromArray (@_);
+    };
+
+    # Restore saved settings.
+    Getopt::Long::Configure ($save);
+
+    # Handle errors and return value.
+    die ($@) if $@;
+    return $ret;
+}
+
+=head1 SEE ALSO
+
+L<Getopt::Long>
+
+=head1 AUTHOR
+
+Johan Vromans <jvromans@squirrel.nl>
+
+=head1 COPYRIGHT AND DISCLAIMER
+
+This program is Copyright 1990,2015,2023 by Johan Vromans.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl.
+
+=cut
+
+1;

_service:tar_scm:Getopt-Long-2.57.tar.gz/t/gol-load1.t Added

_service:tar_scm:Getopt-Long-2.57.tar.gz/t/gol-load2.t Added

_service:tar_scm:Getopt-Long-2.54.tar.gz/t/gol-oo.t -> _service:tar_scm:Getopt-Long-2.57.tar.gz/t/gol-oo.t Changed

_service:tar_scm:perl-Getopt-Long-1690253224.779f32d.tar Deleted

Changes of Revision 2