diff --git a/SQL-Abstract-1.72.tar.gz b/SQL-Abstract-1.72.tar.gz deleted file mode 100644 index 61a815a..0000000 --- a/SQL-Abstract-1.72.tar.gz +++ /dev/null @@ -1,3 +0,0 @@ -version https://git-lfs.github.com/spec/v1 -oid sha256:7902abc8c5f4c5f9bc9bd2ffd0a2d4c98c55b5a1bde80d8b0b3a94ff41f94b89 -size 88235 diff --git a/SQL-Abstract-1.73.tar.gz b/SQL-Abstract-1.73.tar.gz new file mode 100644 index 0000000..1014ad4 --- /dev/null +++ b/SQL-Abstract-1.73.tar.gz @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:6b26a2ff1e25bc14c3396d456b8b38a8bc74e1d909a7ec2ad4de18a6b7bf3720 +size 93037 diff --git a/perl-SQL-Abstract.changes b/perl-SQL-Abstract.changes index ed25042..d8b8ce2 100644 --- a/perl-SQL-Abstract.changes +++ b/perl-SQL-Abstract.changes @@ -1,3 +1,18 @@ +------------------------------------------------------------------- +Tue Jun 4 17:21:42 UTC 2013 - coolo@suse.com + +- updated to 1.73 + - Fix parsing of ORDER BY foo + ? + - Stop filling in placeholders in `format-sql` since it does not support + passing values for them anyway + - Fix parsing of NOT EXISTS + - Fix over-eager parenthesis unrolling + - Fix deep recursion warnings while parsing obnoxiously long sql statements + - Fix incorrect comparison of malformed lists + - Fix incorrect reporting of mismatch-members in SQLA::Test + - Migrate the -ident operator from DBIC into SQLA + - Migrate the -value operator from DBIC into SQLA + ------------------------------------------------------------------- Thu Mar 31 08:30:28 UTC 2011 - coolo@novell.com diff --git a/perl-SQL-Abstract.spec b/perl-SQL-Abstract.spec index bca2c10..67d9cac 100644 --- a/perl-SQL-Abstract.spec +++ b/perl-SQL-Abstract.spec @@ -1,7 +1,7 @@ # # spec file for package perl-SQL-Abstract # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,31 +17,41 @@ Name: perl-SQL-Abstract -Version: 1.72 +Version: 1.73 Release: 0 %define cpan_name SQL-Abstract Summary: Generate SQL from Perl data structures -License: GPL-1.0+ or Artistic-1.0 +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/SQL-Abstract/ -Source: http://www.cpan.org/authors/id/F/FR/FREW/SQL-Abstract-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/F/FR/FREW/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Class::Accessor::Grouped) >= 0.10002 -BuildRequires: perl(Getopt::Long::Descriptive) >= 0.086 +BuildRequires: perl(Class::Accessor::Grouped) >= 0.10005 +BuildRequires: perl(Getopt::Long::Descriptive) >= 0.091 BuildRequires: perl(Hash::Merge) >= 0.12 -BuildRequires: perl(List::Util) -BuildRequires: perl(Scalar::Util) -BuildRequires: perl(Test::Deep) >= 0.106 BuildRequires: perl(Test::Exception) +BuildRequires: perl(Test::More) >= 0.92 BuildRequires: perl(Test::Warn) -Requires: perl(Class::Accessor::Grouped) >= 0.10002 -Requires: perl(Getopt::Long::Descriptive) >= 0.086 +#BuildRequires: perl(CPANPLUS::Backend) +#BuildRequires: perl(DBIx::Class::Storage::Debug::PrettyPrint) +#BuildRequires: perl(DBIx::Class::Storage::Statistics) +#BuildRequires: perl(inc::Module::Install) >= 1.06 +#BuildRequires: perl(JSON) +#BuildRequires: perl(LWP::Simple) +#BuildRequires: perl(Module::AutoInstall) +#BuildRequires: perl(Module::Build) +#BuildRequires: perl(Module::Install::Base) +#BuildRequires: perl(Parse::CPAN::Meta) +#BuildRequires: perl(SQL::Abstract) +#BuildRequires: perl(SQL::Abstract::Test) +#BuildRequires: perl(SQL::Abstract::Tree) +#BuildRequires: perl(YAML::Tiny) +Requires: perl(Class::Accessor::Grouped) >= 0.10005 +Requires: perl(Getopt::Long::Descriptive) >= 0.091 Requires: perl(Hash::Merge) >= 0.12 -Requires: perl(List::Util) -Requires: perl(Scalar::Util) %{perl_requires} %description @@ -59,8 +69,37 @@ this module to do what you mean, based on the data structures you provide it. The big advantage is that you don't have to modify your code every time your data changes, as this module figures it out. +To begin with, an SQL INSERT is as easy as just specifying a hash of +'key=value' pairs: + + my %data = ( + name => 'Jimbo Bobson', + phone => '123-456-7890', + address => '42 Sister Lane', + city => 'St. Louis', + state => 'Louisiana', + ); + +The SQL can then be generated with this: + + my($stmt, @bind) = $sql->insert('people', \%data); + +Which would give you something like this: + + $stmt = "INSERT INTO people + (address, city, name, phone, state) + VALUES (?, ?, ?, ?, ?)"; + @bind = ('42 Sister Lane', 'St. Louis', 'Jimbo Bobson', + '123-456-7890', 'Louisiana'); + +These are then used directly in your DBI code: + + my $sth = $dbh->prepare($stmt); + $sth->execute(@bind); + %prep %setup -q -n %{cpan_name}-%{version} +find . -type f -print0 | xargs -0 chmod 644 %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -75,7 +114,7 @@ your data changes, as this module figures it out. %perl_gen_filelist %files -f %{name}.files -%defattr(644,root,root,755) -%doc Changes +%defattr(-,root,root,755) +%doc Changes examples %changelog