#
# spec file for package perl-Getopt-Std-Strict
#
# Copyright (c) 2024 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.

# Please submit bugfixes or comments via https://bugs.opensuse.org/
#


%define cpan_name Getopt-Std-Strict
Name:           perl-Getopt-Std-Strict
Version:        1.10.0
Release:        0
# 1.01 -> normalize -> 1.10.0
%define cpan_version 1.01
License:        CHECK(Artistic-1.0 or GPL-1.0-or-later)
Summary:        Getopt::Std::Strict Perl module
URL:            https://metacpan.org/release/%{cpan_name}
Source0:        https://cpan.metacpan.org/authors/id/L/LE/LEOCHARRE/%{cpan_name}-%{cpan_version}.tar.gz
Source100:      README.md
BuildArch:      noarch
BuildRequires:  perl
BuildRequires:  perl-macros
BuildRequires:  perl(Test::Simple) >= 0.74
Requires:       perl(Test::Simple) >= 0.74
%{perl_requires}

%description
Getopt::Std is nice but it could be even easier to use. This is how I would
like Getopt::Std to behave.

Two main concepts are strengthened here, on top of Getopt::Std.

   1) Variables are created even under use strict
   2) Your option specs are passed at compile time.

The first import string to use is what you would send to Getopt::Std. If
you have an option flag 'g' and a paramater 'r' taking an argument, the
usage would be..

   use strict;
   use Getopt::Std::Strict 'gr:';

   $opt_g;

This makes available throughout your program the variables $opt_g and
$opt_r, as well as the hash %OPT, which contains $OPT{g} and $OPT{r}.

Compare that with the alternative..

   use strict;
   use Getopt::Std;

   my %o;

   getopts('gr:', \%o);

   $o->{g};

%prep
%autosetup  -n %{cpan_name}-%{cpan_version}

%build
perl Makefile.PL INSTALLDIRS=vendor
%make_build

%check
make test

%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist

%files -f %{name}.files

%changelog