#
# 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