- updated to 0.100.0 (0.10)

see /usr/share/doc/packages/perl-Class-Data-Inheritable/Changes
  0.10  
      - don't use vars, use our (thanks haarg)

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Class-Data-Inheritable?expand=0&rev=19

perl-Class-Data-Inheritable.spec

@@ -0,0 +1,103 @@
+#
+# spec file for package perl-Class-Data-Inheritable
+#
+# 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 Class-Data-Inheritable
+Name:           perl-Class-Data-Inheritable
+Version:        0.100.0
+Release:        0
+# 0.10 -> normalize -> 0.100.0
+%define cpan_version 0.10
+License:        Artistic-1.0 OR GPL-1.0-or-later
+Summary:        Inheritable, overridable class data
+URL:            https://metacpan.org/release/%{cpan_name}
+Source0:        https://cpan.metacpan.org/authors/id/R/RS/RSHERER/%{cpan_name}-%{cpan_version}.tar.gz
+Source1:        cpanspec.yml
+BuildArch:      noarch
+BuildRequires:  perl
+BuildRequires:  perl-macros
+Provides:       perl(Class::Data::Inheritable) = %{version}
+%undefine       __perllib_provides
+%{perl_requires}
+
+%description
+Class::Data::Inheritable is for creating accessor/mutators to class data.
+That is, if you want to store something about your class as a whole
+(instead of about a single object). This data is then inherited by your
+subclasses and can be overridden.
+
+For example:
+
+  Pere::Ubu->mk_classdata('Suitcase');
+
+will generate the method Suitcase() in the class Pere::Ubu.
+
+This new method can be used to get and set a piece of class data.
+
+  Pere::Ubu->Suitcase('Red');
+  $suitcase = Pere::Ubu->Suitcase;
+
+The interesting part happens when a class inherits from Pere::Ubu:
+
+  package Raygun;
+  use base qw(Pere::Ubu);
+
+  # Raygun's suitcase is Red.
+  $suitcase = Raygun->Suitcase;
+
+Raygun inherits its Suitcase class data from Pere::Ubu.
+
+Inheritance of class data works analogous to method inheritance. As long as
+Raygun does not "override" its inherited class data (by using Suitcase() to
+set a new value) it will continue to use whatever is set in Pere::Ubu and
+inherit further changes:
+
+  # Both Raygun's and Pere::Ubu's suitcases are now Blue
+  Pere::Ubu->Suitcase('Blue');
+
+However, should Raygun decide to set its own Suitcase() it has now
+"overridden" Pere::Ubu and is on its own, just like if it had overridden a
+method:
+
+  # Raygun has an orange suitcase, Pere::Ubu's is still Blue.
+  Raygun->Suitcase('Orange');
+
+Now that Raygun has overridden Pere::Ubu further changes by Pere::Ubu no
+longer effect Raygun.
+
+  # Raygun still has an orange suitcase, but Pere::Ubu is using Samsonite.
+  Pere::Ubu->Suitcase('Samsonite');
+
+%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
+%doc Changes doc README
+
+%changelog