File perl-DBIx-Class-ResultSet-RecursiveUpdate.spec of Package perl-DBIx-Class-ResultSet-RecursiveUpdate

Overview Repositories Revisions Requests Users Attributes Meta

File perl-DBIx-Class-ResultSet-RecursiveUpdate.spec of Package perl-DBIx-Class-ResultSet-RecursiveUpdate (Revision a45d7ac33c834b8f0a49981d712e7b3b)

Currently displaying revision a45d7ac33c834b8f0a49981d712e7b3b , Show latest

#
# spec file for package perl-DBIx-Class-ResultSet-RecursiveUpdate
#
# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
#
# 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/
#

Name:           perl-DBIx-Class-ResultSet-RecursiveUpdate
Version:        0.40
Release:        0
%define cpan_name DBIx-Class-ResultSet-RecursiveUpdate
Summary:        Like update_or_create - but recursive
License:        Artistic-1.0 OR GPL-1.0-or-later
Group:          Development/Libraries/Perl
Url:            https://metacpan.org/release/%{cpan_name}
Source0:        https://cpan.metacpan.org/authors/id/A/AB/ABRAXXA/%{cpan_name}-%{version}.tar.gz
BuildArch:      noarch
BuildRoot:      %{_tmppath}/%{name}-%{version}-build
BuildRequires:  perl
BuildRequires:  perl-macros
BuildRequires:  perl(Carp::Clan) >= 6.04
BuildRequires:  perl(DBD::SQLite) >= 1.21
BuildRequires:  perl(DBIx::Class) >= 0.08103
BuildRequires:  perl(DBIx::Class::IntrospectableM2M)
BuildRequires:  perl(Data::Dumper::Concise) >= 2.020
BuildRequires:  perl(DateTime)
BuildRequires:  perl(List::MoreUtils) >= 0.22
BuildRequires:  perl(SQL::Translator) >= 0.11016
BuildRequires:  perl(Test::DBIC::ExpectedQueries) >= 2.001
BuildRequires:  perl(Test::More) >= 0.88
BuildRequires:  perl(Test::Trap) >= v0.2.2
BuildRequires:  perl(Test::Warn) >= 0.20
BuildRequires:  perl(Try::Tiny) >= 0.30
Requires:       perl(Carp::Clan) >= 6.04
Requires:       perl(DBD::SQLite) >= 1.21
Requires:       perl(DBIx::Class) >= 0.08103
Requires:       perl(DBIx::Class::IntrospectableM2M)
Requires:       perl(Data::Dumper::Concise) >= 2.020
Requires:       perl(DateTime)
Requires:       perl(List::MoreUtils) >= 0.22
Requires:       perl(SQL::Translator) >= 0.11016
Requires:       perl(Try::Tiny) >= 0.30
%{perl_requires}

%description
You can feed the ->create method of DBIx::Class with a recursive
datastructure and have the related records created. Unfortunately you
cannot do a similar thing with update_or_create. This module tries to fill
that void until DBIx::Class has an api itself.

The functional interface can be used without modifications of the model,
for example by form processors like HTML::FormHandler::Model::DBIC.

It is a base class for DBIx::Class::ResultSets providing the method
recursive_update which works just like update_or_create but can recursively
update or create result objects composed of multiple rows. All rows need to
be identified by primary keys so you need to provide them in the update
structure (unless they can be deduced from the parent row. For example a
related row of a belongs_to relationship). If any of the primary key
columns are missing, a new row will be created, with the expectation that
the missing columns will be filled by it (as in the case of auto_increment
primary keys).

If the resultset itself stores an assignment for the primary key, like in
the case of:

my $restricted_rs = $user_rs->search( { id => 1 } );

you need to inform recursive_update about the additional predicate with the
fixed_fields attribute:

my $user = $restricted_rs->recursive_update( {
            owned_dvds => [
            {
                title => 'One Flew Over the Cuckoo's Nest'
            }
            ]
        },
        {
            fixed_fields => [ 'id' ],
        }
    );

For a many_to_many (pseudo) relation you can supply a list of primary keys
from the other table and it will link the record at hand to those and only
those records identified by them. This is convenient for handling web forms
with check boxes (or a select field with multiple choice) that lets you
update such (pseudo) relations.

For a description how to set up base classes for ResultSets see
DBIx::Class::Schema/load_namespaces.

%prep
%setup -q -n %{cpan_name}-%{version}
find . -type f ! -path "*/t/*" ! -name "*.pl" ! -name "*.sh" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644

%build
perl Makefile.PL INSTALLDIRS=vendor
make %{?_smp_mflags}

%check
make test

%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist

%files -f %{name}.files
%defattr(-,root,root,755)
%doc Changes README
%license LICENSE

%changelog

Places

File perl-DBIx-Class-ResultSet-RecursiveUpdate.spec of Package perl-DBIx-Class-ResultSet-RecursiveUpdate (Revision a45d7ac33c834b8f0a49981d712e7b3b)

Places