138 lines
4.7 KiB
RPMSpec
138 lines
4.7 KiB
RPMSpec
#
|
|
# spec file for package perl-Collection
|
|
#
|
|
# 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 Collection
|
|
Name: perl-Collection
|
|
Version: 0.580.0
|
|
Release: 0
|
|
# 0.58 -> normalize -> 0.580.0
|
|
%define cpan_version 0.58
|
|
License: Artistic-1.0 OR GPL-1.0-or-later
|
|
Summary: CRUD framework
|
|
URL: https://metacpan.org/release/%{cpan_name}
|
|
Source0: https://cpan.metacpan.org/authors/id/Z/ZA/ZAG/%{cpan_name}-%{cpan_version}.tar.gz
|
|
Source1: cpanspec.yml
|
|
Source100: README.md
|
|
BuildArch: noarch
|
|
BuildRequires: perl
|
|
BuildRequires: perl-macros
|
|
BuildRequires: perl(Flow) >= 0.600.0
|
|
BuildRequires: perl(JSON::XS) >= 2.29
|
|
BuildRequires: perl(Module::Build) >= 0.38
|
|
BuildRequires: perl(String::CRC32) >= 1.4
|
|
Requires: perl(Flow) >= 0.600.0
|
|
Requires: perl(JSON::XS) >= 2.29
|
|
Requires: perl(String::CRC32) >= 1.4
|
|
Provides: perl(Collection) = %{version}
|
|
Provides: perl(Collection::AutoSQL) = 1.100.0
|
|
Provides: perl(Collection::AutoSQLnotUnique) = 0.10.0
|
|
Provides: perl(Collection::CrcColl) = 0.110.0
|
|
Provides: perl(Collection::Index) = 0.20.0
|
|
Provides: perl(Collection::Mem) = 0.10.0
|
|
Provides: perl(Collection::Memcached) = 0.10.0
|
|
Provides: perl(Collection::Storable) = 0.10.0
|
|
Provides: perl(Collection::Utl::ActiveRecord) = 0.10.0
|
|
Provides: perl(Collection::Utl::Base) = 0.10.0
|
|
Provides: perl(Collection::Utl::Flow) = 0.10.0
|
|
Provides: perl(Collection::Utl::HashUnion) = 0.10.0
|
|
Provides: perl(Collection::Utl::Item) = 0.20.0
|
|
Provides: perl(Collection::Utl::LazyObject) = 0.10.0
|
|
Provides: perl(Collection::Utl::Mirror) = 0.20.0
|
|
Provides: perl(Collection::Utl::StoreDir)
|
|
%undefine __perllib_provides
|
|
%{perl_requires}
|
|
|
|
%description
|
|
A collection - sometimes called a container - is simply an object that
|
|
groups multiple elements into a single unit. _Collection_ are used to
|
|
store, retrieve, manipulate, and communicate aggregate data.
|
|
|
|
The primary advantages of a _Collection_ framework are that it reduces
|
|
programming effort by providing useful data structures and algorithms so
|
|
you don't have to write them yourself.
|
|
|
|
The _Collection_ framework consists of:
|
|
|
|
* * Wrapper Implementations - Add functionality, such as mirroring and lazy
|
|
load, to other implementations.
|
|
|
|
* * Algorithms - methods that perform useful functions, such as caching.
|
|
|
|
This module has a task - to be a base class for ather Collections. You can
|
|
inherit the methods *_create*, *_delete*, *_fetch*, *_store* and may be
|
|
*_prepare_record* for new source of data. As you see this is similar to
|
|
*CRUD* (Create - Read - Update- Delete).
|
|
|
|
Sample:
|
|
|
|
my $col = new MyCollection:: <some params>;
|
|
#fetch objects or data by keys
|
|
my $data = $col->fetch(1,2,3,4,5);
|
|
#do something
|
|
foreach my $item ( values %$data) {
|
|
$_->attr->{inc} ++
|
|
}
|
|
#You can use "lazy" functionality
|
|
my $not_actualy_fetch = $col->get_lazy(6,7,8,9);
|
|
#store changed data or objects
|
|
$col->store;
|
|
#free memory
|
|
$col->release;
|
|
|
|
Sample from Collection::AutoSQL:
|
|
|
|
my $beers = new Collection::AutoSQL::
|
|
dbh => $dbh, #database connect
|
|
table => 'beers', #table name
|
|
field => 'bid', #key field (IDs), usually primary,autoincrement
|
|
cut_key => 1; #delete field 'bid' from readed records,
|
|
|
|
my $heineken = $beers->fetch_one(1);
|
|
#SELECT * FROM beers WHERE bid in (1)
|
|
|
|
Sample from Collection::Memcached:
|
|
|
|
use Collection::Memcached;
|
|
use Cache::Memcached;
|
|
$memd = new Cache::Memcached {
|
|
'servers' => [ "127.0.0.1:11211" ],
|
|
'debug' => 0,
|
|
'compress_threshold' => 10_000,
|
|
};
|
|
my $collection = new Collection::Memcached:: $memd;
|
|
my $collection_prefix = new Collection::Memcached:: $memd, 'prefix';
|
|
|
|
%prep
|
|
%autosetup -n %{cpan_name}-%{cpan_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
|
|
|
|
%changelog
|