forked from pool/perl-Struct-Dumb
97 lines
3.6 KiB
RPMSpec
97 lines
3.6 KiB
RPMSpec
#
|
|
# spec file for package perl-Struct-Dumb
|
|
#
|
|
# Copyright (c) 2023 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 Struct-Dumb
|
|
Name: perl-Struct-Dumb
|
|
Version: 0.14
|
|
Release: 0
|
|
License: Artistic-1.0 OR GPL-1.0-or-later
|
|
Summary: Make simple lightweight record-like structures
|
|
URL: https://metacpan.org/release/%{cpan_name}
|
|
Source0: https://cpan.metacpan.org/authors/id/P/PE/PEVANS/%{cpan_name}-%{version}.tar.gz
|
|
Source1: cpanspec.yml
|
|
Source100: README.md
|
|
BuildArch: noarch
|
|
BuildRequires: perl
|
|
BuildRequires: perl-macros
|
|
BuildRequires: perl(Module::Build) >= 0.400400
|
|
BuildRequires: perl(Test2::V0)
|
|
%{perl_requires}
|
|
|
|
%description
|
|
'Struct::Dumb' creates record-like structure types, similar to the 'struct'
|
|
keyword in C, C++ or C#, or 'Record' in Pascal. An invocation of this
|
|
module will create a construction function which returns new object
|
|
references with the given field values. These references all respond to
|
|
lvalue methods that access or modify the values stored.
|
|
|
|
It's specifically and intentionally not meant to be an object class. You
|
|
cannot subclass it. You cannot provide additional methods. You cannot apply
|
|
roles or mixins or metaclasses or traits or antlers or whatever else is in
|
|
fashion this week.
|
|
|
|
On the other hand, it is tiny, creates cheap lightweight array-backed
|
|
structures, uses nothing outside of core. It's intended simply to be a
|
|
slightly nicer way to store data structures, where otherwise you might be
|
|
tempted to abuse a hash, complete with the risk of typoing key names. The
|
|
constructor will 'croak' if passed the wrong number of arguments, as will
|
|
attempts to refer to fields that don't exist. Accessor-mutators will
|
|
'croak' if invoked with arguments. (This helps detect likely bugs such as
|
|
accidentally passing in the new value as an argument, or attempting to
|
|
invoke a stored 'CODE' reference by passing argument values directly to the
|
|
accessor.)
|
|
|
|
$ perl -E 'use Struct::Dumb; struct Point => [qw( x y )]; Point(30)'
|
|
usage: main::Point($x, $y) at -e line 1
|
|
|
|
$ perl -E 'use Struct::Dumb; struct Point => [qw( x y )]; Point(10,20)->z'
|
|
main::Point does not have a 'z' field at -e line 1
|
|
|
|
$ perl -E 'use Struct::Dumb; struct Point => [qw( x y )]; Point(1,2)->x(3)'
|
|
main::Point->x invoked with arguments at -e line 1.
|
|
|
|
Objects in this class are (currently) backed by an ARRAY reference store,
|
|
though this is an internal implementation detail and should not be relied
|
|
on by using code. Attempting to dereference the object as an ARRAY will
|
|
throw an exception.
|
|
|
|
_Note_: That on development perls that support 'use feature 'class'', this
|
|
is used instead of a blessed ARRAY reference. This implementation choice
|
|
should be transparent to the end-user, as all the same features are
|
|
supported.
|
|
|
|
%prep
|
|
%autosetup -n %{cpan_name}-%{version}
|
|
|
|
%build
|
|
perl Build.PL installdirs=vendor
|
|
./Build build flags=%{?_smp_mflags}
|
|
|
|
%check
|
|
./Build test
|
|
|
|
%install
|
|
./Build install destdir=%{buildroot} create_packlist=0
|
|
%perl_gen_filelist
|
|
|
|
%files -f %{name}.files
|
|
%doc Changes README
|
|
%license LICENSE
|
|
|
|
%changelog
|