From 54feb2de4bfec816928853603a9cfcc4911d1be5 Mon Sep 17 00:00:00 2001
From: TizenOpenSource <tizenopensrc@samsung.com>
Date: Fri, 20 Dec 2024 13:57:31 +0900
Subject: [PATCH] Bump to 0.10

Change-Id: I10b9dcb32e956f85941f1b9fb5c6b58e4167aee2
Signed-off-by: TizenOpenSource <tizenopensrc@samsung.com>
---
 .../perl-Class-Data-Inheritable.manifest      |  5 ++
 packaging/perl-Class-Data-Inheritable.spec    | 74 +++++++++++++++++++
 2 files changed, 79 insertions(+)
 create mode 100644 packaging/perl-Class-Data-Inheritable.manifest
 create mode 100644 packaging/perl-Class-Data-Inheritable.spec

diff --git a/packaging/perl-Class-Data-Inheritable.manifest b/packaging/perl-Class-Data-Inheritable.manifest
new file mode 100644
index 0000000..017d22d
--- /dev/null
+++ b/packaging/perl-Class-Data-Inheritable.manifest
@@ -0,0 +1,5 @@
+<manifest>
+ <request>
+    <domain name="_"/>
+ </request>
+</manifest>
diff --git a/packaging/perl-Class-Data-Inheritable.spec b/packaging/perl-Class-Data-Inheritable.spec
new file mode 100644
index 0000000..72b2a3c
--- /dev/null
+++ b/packaging/perl-Class-Data-Inheritable.spec
@@ -0,0 +1,74 @@
+Name:           perl-Class-Data-Inheritable
+Version:        0.10
+Release:        0
+License:        Artistic-1.0 OR GPL-1.0-or-later
+Summary:        Inheritable, overridable class data
+Url:            https://metacpan.org/pod/Class::Data::Inheritable
+Group:          Development/Libraries
+Source0:        %{name}-%{version}.tar.gz
+Source1001: 	perl-Class-Data-Inheritable.manifest
+BuildRequires:  perl
+BuildRequires:  perl(MIME::Base64)
+BuildArch:      noarch
+
+%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
+%setup -q -n %{name}-%{version}
+cp %{SOURCE1001} .
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+%perl_make_install
+%perl_process_packlist
+%perl_gen_filelist
+
+%files -f %{name}.files
-- 
2.34.1