Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-DBIx-Class-Schema-Loader for
openSUSE:Factory checked in at 2022-12-10 21:18:51
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-DBIx-Class-Schema-Loader (Old)
and /work/SRC/openSUSE:Factory/.perl-DBIx-Class-Schema-Loader.new.1835
(New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-DBIx-Class-Schema-Loader"
Sat Dec 10 21:18:51 2022 rev:8 rq:1042014 version:0.07051
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-DBIx-Class-Schema-Loader/perl-DBIx-Class-Schema-Loader.changes
2018-04-19 15:27:53.866957315 +0200
+++
/work/SRC/openSUSE:Factory/.perl-DBIx-Class-Schema-Loader.new.1835/perl-DBIx-Class-Schema-Loader.changes
2022-12-10 21:18:54.737936772 +0100
@@ -1,0 +2,15 @@
+Thu Nov 24 03:06:27 UTC 2022 - Tina Müller <[email protected]>
+
+- updated to 0.07051
+ see /usr/share/doc/packages/perl-DBIx-Class-Schema-Loader/Changes
+
+ 0.07051 - 2022-11-23
+ - Make defaulting primary key columns retrieve_on_insert for Pg
(GH#28)
+
+ 0.07050 - 2022-11-20
+
+ - Revert inlining of String::CamelCase::wordsplit() (RT#125929)
+ - Do not require MooseX::MarkAsMethods with only_autoclean=1 (GH#21)
+ - Exclude tables in the Oracle Recycle Bin (RT#128149)
+
+-------------------------------------------------------------------
Old:
----
DBIx-Class-Schema-Loader-0.07049.tar.gz
New:
----
DBIx-Class-Schema-Loader-0.07051.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-DBIx-Class-Schema-Loader.spec ++++++
--- /var/tmp/diff_new_pack.jSdICk/_old 2022-12-10 21:18:55.161939251 +0100
+++ /var/tmp/diff_new_pack.jSdICk/_new 2022-12-10 21:18:55.165939274 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-DBIx-Class-Schema-Loader
#
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2022 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,22 +12,20 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
+%define cpan_name DBIx-Class-Schema-Loader
Name: perl-DBIx-Class-Schema-Loader
-Version: 0.07049
+Version: 0.07051
Release: 0
-%define cpan_name DBIx-Class-Schema-Loader
-Summary: Create a DBIx::Class::Schema based on a database
License: Artistic-1.0 OR GPL-1.0-or-later
-Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/DBIx-Class-Schema-Loader/
-Source0:
https://cpan.metacpan.org/authors/id/I/IL/ILMARI/%{cpan_name}-%{version}.tar.gz
+Summary: Create a DBIx::Class::Schema based on a database
+URL: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/V/VE/VEESH/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(Carp::Clan)
@@ -47,6 +45,7 @@
BuildRequires: perl(List::Util) >= 1.33
BuildRequires: perl(MRO::Compat) >= 0.09
BuildRequires: perl(Scope::Guard) >= 0.20
+BuildRequires: perl(String::CamelCase) >= 0.04
BuildRequires: perl(String::ToIdentifier::EN) >= 0.05
BuildRequires: perl(Sub::Util) >= 1.40
BuildRequires: perl(Test::Deep) >= 0.107
@@ -72,6 +71,7 @@
Requires: perl(List::Util) >= 1.33
Requires: perl(MRO::Compat) >= 0.09
Requires: perl(Scope::Guard) >= 0.20
+Requires: perl(String::CamelCase) >= 0.04
Requires: perl(String::ToIdentifier::EN) >= 0.05
Requires: perl(Sub::Util) >= 1.40
Requires: perl(Try::Tiny)
@@ -106,15 +106,15 @@
See DBIx::Class::Schema::Loader::Base for available options.
%prep
-%setup -q -n %{cpan_name}-%{version}
-find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
+%autosetup -n %{cpan_name}-%{version}
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor
+%make_build
%check
-%{__make} test
+make test
%install
%perl_make_install
@@ -122,7 +122,7 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes README
+%license LICENSE
%changelog
++++++ DBIx-Class-Schema-Loader-0.07049.tar.gz ->
DBIx-Class-Schema-Loader-0.07051.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07049/Changes
new/DBIx-Class-Schema-Loader-0.07051/Changes
--- old/DBIx-Class-Schema-Loader-0.07049/Changes 2018-03-21
14:41:44.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/Changes 2022-11-23
19:51:45.000000000 +0100
@@ -1,8 +1,17 @@
Revision history for Perl extension DBIx::Class::Schema::Loader
+0.07051 - 2022-11-23
+ - Make defaulting primary key columns retrieve_on_insert for Pg (GH#28)
+
+0.07050 - 2022-11-20
+
+ - Revert inlining of String::CamelCase::wordsplit() (RT#125929)
+ - Do not require MooseX::MarkAsMethods with only_autoclean=1 (GH#21)
+ - Exclude tables in the Oracle Recycle Bin (RT#128149)
+
0.07049 - 2018-03-21
- Fix tests when the path to perl has spaces in it (GH#19)
- - Inline String::CamelCase::wordsplit() due to RT#123030
+ - Inline String::CamelCase::wordsplit() due to RT#123030 (RT#124822)
- Get enum values from DBD::Pg if it's new enough
- Remove dependency on DBIx::Class::IntrospectableM2M
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07049/MANIFEST
new/DBIx-Class-Schema-Loader-0.07051/MANIFEST
--- old/DBIx-Class-Schema-Loader-0.07049/MANIFEST 2018-03-21
14:47:23.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/MANIFEST 2022-11-23
19:52:19.000000000 +0100
@@ -149,3 +149,4 @@
META.yml Module YAML meta-data (added by
MakeMaker)
META.json Module JSON meta-data (added by
MakeMaker)
README README file (added by Distar)
+LICENSE LICENSE file (added by Distar)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07049/META.json
new/DBIx-Class-Schema-Loader-0.07051/META.json
--- old/DBIx-Class-Schema-Loader-0.07049/META.json 2018-03-21
14:47:23.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/META.json 2022-11-23
19:52:18.000000000 +0100
@@ -4,13 +4,13 @@
"Caelum: Rafael Kitover <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter
version 2.150010",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
- "version" : "2"
+ "version" : 2
},
"name" : "DBIx-Class-Schema-Loader",
"no_index" : {
@@ -38,7 +38,7 @@
"Config::General" : "0",
"Math::Base36" : "0.07",
"Math::BigInt" : "1.80",
- "Moose" : "1.12",
+ "Moose" : "2.1400",
"MooseX::MarkAsMethods" : "0.13",
"MooseX::NonMoose" : "0.25",
"Pod::Coverage" : "0.20",
@@ -69,6 +69,7 @@
"List::Util" : "1.33",
"MRO::Compat" : "0.09",
"Scope::Guard" : "0.20",
+ "String::CamelCase" : "0.04",
"String::ToIdentifier::EN" : "0.05",
"Sub::Util" : "1.40",
"Try::Tiny" : "0",
@@ -92,6 +93,9 @@
},
"release_status" : "stable",
"resources" : {
+ "bugtracker" : {
+ "web" : "https://github.com/dbsrgits/dbix-class-schema-loader/issues";
+ },
"license" : [
"http://dev.perl.org/licenses/";
],
@@ -102,6 +106,6 @@
"x_IRC" : "irc://irc.perl.org/#dbix-class",
"x_MailingList" :
"http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class";
},
- "version" : "0.07049",
- "x_serialization_backend" : "JSON::PP version 2.27400_02"
+ "version" : "0.07051",
+ "x_serialization_backend" : "JSON::PP version 4.04"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07049/META.yml
new/DBIx-Class-Schema-Loader-0.07051/META.yml
--- old/DBIx-Class-Schema-Loader-0.07049/META.yml 2018-03-21
14:47:23.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/META.yml 2022-11-23
19:52:18.000000000 +0100
@@ -15,7 +15,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version
2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.44, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -44,6 +44,7 @@
List::Util: '1.33'
MRO::Compat: '0.09'
Scope::Guard: '0.20'
+ String::CamelCase: '0.04'
String::ToIdentifier::EN: '0.05'
Sub::Util: '1.40'
Try::Tiny: '0'
@@ -53,7 +54,8 @@
resources:
IRC: irc://irc.perl.org/#dbix-class
MailingList: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
+ bugtracker: https://github.com/dbsrgits/dbix-class-schema-loader/issues
license: http://dev.perl.org/licenses/
repository: https://github.com/dbsrgits/dbix-class-schema-loader
-version: '0.07049'
+version: '0.07051'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07049/Makefile.PL
new/DBIx-Class-Schema-Loader-0.07051/Makefile.PL
--- old/DBIx-Class-Schema-Loader-0.07049/Makefile.PL 2018-03-20
23:23:43.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/Makefile.PL 2022-11-23
19:47:42.000000000 +0100
@@ -3,30 +3,31 @@
use 5.008001;
use ExtUtils::MakeMaker;
-my ($dev_requires) = (do './maint/Makefile.PL.include' or die $@)
- unless -f 'META.yml';
+my ($dev_requires) = ( do './maint/Makefile.PL.include' or die $@ )
+ unless -f 'META.yml';
my $eumm_version = eval $ExtUtils::MakeMaker::VERSION;
-my %eumm_args = (
- NAME => 'DBIx::Class::Schema::Loader',
- VERSION_FROM => 'lib/DBIx/Class/Schema/Loader.pm',
- LICENSE => 'perl',
- MIN_PERL_VERSION => '5.008001',
+my %eumm_args = (
+ NAME => 'DBIx::Class::Schema::Loader',
+ VERSION_FROM => 'lib/DBIx/Class/Schema/Loader.pm',
+ LICENSE => 'perl',
+ MIN_PERL_VERSION => '5.008001',
CONFIGURE_REQUIRES => {
'ExtUtils::MakeMaker' => '0',
},
TEST_REQUIRES => {
- 'DBD::SQLite' => '1.29',
- 'Test::Exception' => '0.31',
- 'Test::More' => '0.94',
- 'Test::Warn' => '0.21',
- 'Test::Deep' => '0.107',
+ 'DBD::SQLite' => '1.29',
+ 'Test::Exception' => '0.31',
+ 'Test::More' => '0.94',
+ 'Test::Warn' => '0.21',
+ 'Test::Deep' => '0.107',
'Test::Differences' => '0.60',
+
# core, but specific versions not available on older perls
- 'File::Temp' => '0.16',
- 'File::Path' => '2.07',
+ 'File::Temp' => '0.16',
+ 'File::Path' => '2.07',
},
- test => {TESTS => 't/*.t t/*/*.t t/*/*/*.t'},
+ test => { TESTS => 't/*.t t/*/*.t t/*/*/*.t' },
PREREQ_PM => {
'Carp::Clan' => 0,
'Class::Accessor::Grouped' => '0.10008',
@@ -45,28 +46,35 @@
'namespace::clean' => '0.23',
'Scope::Guard' => '0.20',
'String::ToIdentifier::EN' => '0.05',
+ 'String::CamelCase' => '0.04',
'Sub::Util' => '1.40',
'Try::Tiny' => 0,
+
# core, but specific versions not available on older perls
- 'Digest::MD5' => '2.36',
- 'Exporter' => '5.63',
+ 'Digest::MD5' => '2.36',
+ 'Exporter' => '5.63',
},
realclean => {
FILES => 'lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pod'
},
- EXE_FILES => [ qw(script/dbicdump) ],
+ EXE_FILES => [qw(script/dbicdump)],
META_MERGE => {
- "meta-spec" => { version => 2 },
+ "meta-spec" => { version => 2 },
dynamic_config => 0,
- resources => {
+ resources => {
+ bugtracker => {
+ web =>
+ 'https://github.com/dbsrgits/dbix-class-schema-loader/issues'
+ },
repository => {
type => 'git',
- url => '[email protected]/dbsrgits/dbix-class-schema-loader.git',
- web => 'https://github.com/dbsrgits/dbix-class-schema-loader',
+ url =>
'[email protected]/dbsrgits/dbix-class-schema-loader.git',
+ web => 'https://github.com/dbsrgits/dbix-class-schema-loader',
},
- x_IRC => 'irc://irc.perl.org/#dbix-class',
- license => [ 'http://dev.perl.org/licenses/' ],
- x_MailingList =>
'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class',
+ x_IRC => 'irc://irc.perl.org/#dbix-class',
+ license => ['http://dev.perl.org/licenses/'],
+ x_MailingList =>
+ 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class',
},
no_index => {
directory => [qw(maint xt)],
@@ -78,18 +86,16 @@
);
sub _move_to {
- my ($hash, $fromkey, $tokey) = @_;
- $hash->{$tokey} = {
- %{ $hash->{$tokey} || {} },
- %{ delete($hash->{$fromkey}) || {} },
- };
+ my ( $hash, $fromkey, $tokey ) = @_;
+ $hash->{$tokey} =
+ { %{ $hash->{$tokey} || {} }, %{ delete( $hash->{$fromkey} ) || {} }, };
}
delete $eumm_args{META_MERGE} if $eumm_version < 6.45_01;
delete $eumm_args{CONFIGURE_REQUIRES}
- if $eumm_version < 6.51_03; # too late to use so just delete
-_move_to(\%eumm_args, 'TEST_REQUIRES', 'BUILD_REQUIRES')
+ if $eumm_version < 6.51_03; # too late to use so just delete
+_move_to( \%eumm_args, 'TEST_REQUIRES', 'BUILD_REQUIRES' )
if $eumm_version < 6.63_03;
-_move_to(\%eumm_args, 'BUILD_REQUIRES', 'PREREQ_PM')
+_move_to( \%eumm_args, 'BUILD_REQUIRES', 'PREREQ_PM' )
if $eumm_version < 6.55_01;
$eumm_args{NO_MYMETA} = 1
if $eumm_version >= 6.57_02 and $eumm_version < 6.57_07;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07049/README
new/DBIx-Class-Schema-Loader-0.07051/README
--- old/DBIx-Class-Schema-Loader-0.07049/README 2018-03-21 14:47:23.000000000
+0100
+++ new/DBIx-Class-Schema-Loader-0.07051/README 2022-11-23 19:52:19.000000000
+0100
@@ -294,6 +294,8 @@
domm: Thomas Klausner <[email protected]>
+ ether: Karen Etheridge <[email protected]>
+
gugu: Andrey Kostenko <[email protected]>
hobbs: Andrew Rodland <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/Base.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/Base.pm
--- old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/Base.pm
2018-03-21 14:41:19.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/Base.pm
2022-11-23 19:51:38.000000000 +0100
@@ -31,7 +31,7 @@
use curry;
use namespace::clean;
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
__PACKAGE__->mk_group_ro_accessors('simple', qw/
schema
@@ -990,12 +990,13 @@
This prevents the "Hey, where'd my overloads go?!" effect.
-If you don't care about operator overloads, enabling this option falls back to
-just using L<namespace::autoclean> itself.
+If you don't care about operator overloads (or if you know your Moose is at at
+least version 2.1400, where MooseX::MarkAsMethods is no longer necessary),
+enabling this option falls back to just using L<namespace::autoclean> itself.
If none of the above made any sense, or you don't have some pressing need to
only use L<namespace::autoclean>, leaving this set to the default is
-recommended.
+just fine.
=head2 col_collision_map
@@ -1181,9 +1182,17 @@
$self->_validate_result_roles_map;
if ($self->use_moose) {
- if (not
DBIx::Class::Schema::Loader::Optional::Dependencies->req_ok_for('use_moose')) {
- die sprintf "You must install the following CPAN modules to enable
the use_moose option: %s.\n",
-
DBIx::Class::Schema::Loader::Optional::Dependencies->req_missing_for('use_moose');
+ if ($self->only_autoclean) {
+ if (not
DBIx::Class::Schema::Loader::Optional::Dependencies->req_ok_for('use_moose_only_autoclean'))
{
+ die sprintf "You must install the following CPAN modules to
enable the use_moose and only_autoclean options: %s.\n",
+
DBIx::Class::Schema::Loader::Optional::Dependencies->req_missing_for('use_moose_only_autoclean');
+ }
+ }
+ else {
+ if (not
DBIx::Class::Schema::Loader::Optional::Dependencies->req_ok_for('use_moose')) {
+ die sprintf "You must install the following CPAN modules to
enable the use_moose option: %s.\n",
+
DBIx::Class::Schema::Loader::Optional::Dependencies->req_missing_for('use_moose');
+ }
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
2022-11-23 19:51:38.000000000 +0100
@@ -10,7 +10,7 @@
use Try::Tiny;
use namespace::clean;
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ADO/Microsoft_SQL_Server.pm
2022-11-23 19:51:38.000000000 +0100
@@ -11,7 +11,7 @@
use namespace::clean;
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ADO.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ADO.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ADO.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ADO.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
2022-11-23 19:51:38.000000000 +0100
@@ -13,7 +13,7 @@
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Firebird.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Firebird.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Firebird.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Firebird.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base qw/DBIx::Class::Schema::Loader::DBI::InterBase/;
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Informix.pm
2022-11-23 19:51:38.000000000 +0100
@@ -10,7 +10,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table::Informix ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/InterBase.pm
2022-11-23 19:51:38.000000000 +0100
@@ -9,7 +9,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
sub _supports_db_schema { 0 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/MSSQL.pm
2022-11-23 19:51:38.000000000 +0100
@@ -10,7 +10,7 @@
use DBIx::Class::Schema::Loader::Table::Sybase ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC/ACCESS.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC/ACCESS.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC/ACCESS.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC/ACCESS.pm
2022-11-23 19:51:38.000000000 +0100
@@ -8,7 +8,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
__PACKAGE__->mk_group_accessors('simple', qw/
__ado_connection
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Firebird.pm
2022-11-23 19:51:38.000000000 +0100
@@ -8,7 +8,7 @@
/;
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC/Microsoft_SQL_Server.pm
2022-11-23 19:51:38.000000000 +0100
@@ -8,7 +8,7 @@
/;
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC/SQL_Anywhere.pm
2022-11-23 19:51:38.000000000 +0100
@@ -8,7 +8,7 @@
/;
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
2022-11-23 19:51:38.000000000 +0100
@@ -8,7 +8,7 @@
use DBIx::Class::Schema::Loader::Utils qw/sigwarn_silencer/;
use namespace::clean;
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
@@ -57,7 +57,11 @@
sub _system_tables {
my $self = shift;
- return ($self->next::method(@_), 'PLAN_TABLE');
+ return (
+ $self->next::method(@_),
+ 'PLAN_TABLE',
+ qr/\ABIN\$.*\$\d+\z/, # Tables in the recycle bin
+ );
}
sub _dbh_tables {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
--- old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
2018-03-21 14:41:19.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Pg.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault';
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
@@ -19,39 +19,39 @@
=cut
sub _setup {
- my $self = shift;
+ my $self = shift;
- $self->next::method(@_);
+ $self->next::method(@_);
- $self->{db_schema} ||= ['public'];
+ $self->{db_schema} ||= ['public'];
- if (not defined $self->preserve_case) {
- $self->preserve_case(0);
- }
- elsif ($self->preserve_case) {
- $self->schema->storage->sql_maker->quote_char('"');
- $self->schema->storage->sql_maker->name_sep('.');
- }
+ if ( not defined $self->preserve_case ) {
+ $self->preserve_case(0);
+ }
+ elsif ( $self->preserve_case ) {
+ $self->schema->storage->sql_maker->quote_char('"');
+ $self->schema->storage->sql_maker->name_sep('.');
+ }
}
sub _system_schemas {
- my $self = shift;
+ my $self = shift;
- return ($self->next::method(@_), 'pg_catalog');
+ return ( $self->next::method(@_), 'pg_catalog' );
}
my %pg_rules = (
- a => 'NO ACTION',
- r => 'RESTRICT',
- c => 'CASCADE',
- n => 'SET NULL',
- d => 'SET DEFAULT',
+ a => 'NO ACTION',
+ r => 'RESTRICT',
+ c => 'CASCADE',
+ n => 'SET NULL',
+ d => 'SET DEFAULT',
);
sub _table_fk_info {
- my ($self, $table) = @_;
+ my ( $self, $table ) = @_;
- my $sth = $self->dbh->prepare_cached(<<"EOF");
+ my $sth = $self->dbh->prepare_cached(<<"EOF");
select constr.conname, to_ns.nspname, to_class.relname,
from_col.attname, to_col.attname,
constr.confdeltype, constr.confupdtype, constr.condeferrable
from pg_catalog.pg_constraint constr
@@ -75,52 +75,57 @@
order by constr.conname, colnum.i
EOF
- $sth->execute($table->schema, $table->name);
-
- my %rels;
+ $sth->execute( $table->schema, $table->name );
- while (my ($fk, $remote_schema, $remote_table, $col, $remote_col,
- $delete_rule, $update_rule, $is_deferrable) =
$sth->fetchrow_array) {
- push @{ $rels{$fk}{local_columns} }, $self->_lc($col);
- push @{ $rels{$fk}{remote_columns} }, $self->_lc($remote_col);
+ my %rels;
- $rels{$fk}{remote_table} = DBIx::Class::Schema::Loader::Table->new(
- loader => $self,
- name => $remote_table,
- schema => $remote_schema,
- ) unless exists $rels{$fk}{remote_table};
-
- $rels{$fk}{attrs} ||= {
- on_delete => $pg_rules{$delete_rule},
- on_update => $pg_rules{$update_rule},
- is_deferrable => $is_deferrable,
- };
- }
+ while (
+ my (
+ $fk, $remote_schema, $remote_table, $col,
+ $remote_col, $delete_rule, $update_rule, $is_deferrable
+ )
+ = $sth->fetchrow_array
+ )
+ {
+ push @{ $rels{$fk}{local_columns} }, $self->_lc($col);
+ push @{ $rels{$fk}{remote_columns} }, $self->_lc($remote_col);
+
+ $rels{$fk}{remote_table} = DBIx::Class::Schema::Loader::Table->new(
+ loader => $self,
+ name => $remote_table,
+ schema => $remote_schema,
+ ) unless exists $rels{$fk}{remote_table};
+
+ $rels{$fk}{attrs} ||= {
+ on_delete => $pg_rules{$delete_rule},
+ on_update => $pg_rules{$update_rule},
+ is_deferrable => $is_deferrable,
+ };
+ }
- return [ map { $rels{$_} } sort keys %rels ];
+ return [ map { $rels{$_} } sort keys %rels ];
}
-
sub _table_uniq_info {
- my ($self, $table) = @_;
+ my ( $self, $table ) = @_;
- # Use the default support if available
- return $self->next::method($table)
- if $DBD::Pg::VERSION >= 1.50;
+ # Use the default support if available
+ return $self->next::method($table)
+ if $DBD::Pg::VERSION >= 1.50;
- my @uniqs;
+ my @uniqs;
- # Most of the SQL here is mostly based on
- # Rose::DB::Object::Metadata::Auto::Pg, after some prodding from
- # John Siracusa to use his superior SQL code :)
+ # Most of the SQL here is mostly based on
+ # Rose::DB::Object::Metadata::Auto::Pg, after some prodding from
+ # John Siracusa to use his superior SQL code :)
- my $attr_sth = $self->{_cache}->{pg_attr_sth} ||= $self->dbh->prepare(
- q{SELECT attname FROM pg_catalog.pg_attribute
+ my $attr_sth = $self->{_cache}->{pg_attr_sth} ||= $self->dbh->prepare(
+ q{SELECT attname FROM pg_catalog.pg_attribute
WHERE attrelid = ? AND attnum = ?}
- );
+ );
- my $uniq_sth = $self->{_cache}->{pg_uniq_sth} ||= $self->dbh->prepare(
- q{SELECT x.indrelid, i.relname, x.indkey
+ my $uniq_sth = $self->{_cache}->{pg_uniq_sth} ||= $self->dbh->prepare(
+ q{SELECT x.indrelid, i.relname, x.indkey
FROM
pg_catalog.pg_index x
JOIN pg_catalog.pg_class c ON c.oid = x.indrelid
@@ -134,57 +139,58 @@
n.nspname = ? AND
c.relname = ?
ORDER BY i.relname}
- );
+ );
- $uniq_sth->execute($table->schema, $table->name);
- while(my $row = $uniq_sth->fetchrow_arrayref) {
- my ($tableid, $indexname, $col_nums) = @$row;
- $col_nums =~ s/^\s+//;
- my @col_nums = split(/\s+/, $col_nums);
- my @col_names;
-
- foreach (@col_nums) {
- $attr_sth->execute($tableid, $_);
- my $name_aref = $attr_sth->fetchrow_arrayref;
- push(@col_names, $self->_lc($name_aref->[0])) if $name_aref;
- }
+ $uniq_sth->execute( $table->schema, $table->name );
+ while ( my $row = $uniq_sth->fetchrow_arrayref ) {
+ my ( $tableid, $indexname, $col_nums ) = @$row;
+ $col_nums =~ s/^\s+//;
+ my @col_nums = split( /\s+/, $col_nums );
+ my @col_names;
+
+ foreach (@col_nums) {
+ $attr_sth->execute( $tableid, $_ );
+ my $name_aref = $attr_sth->fetchrow_arrayref;
+ push( @col_names, $self->_lc( $name_aref->[0] ) ) if $name_aref;
+ }
- # skip indexes with missing column names (e.g. expression indexes)
- if(@col_names == @col_nums) {
- push(@uniqs, [ $indexname => \@col_names ]);
- }
+ # skip indexes with missing column names (e.g. expression indexes)
+ if ( @col_names == @col_nums ) {
+ push( @uniqs, [ $indexname => \@col_names ] );
}
+ }
- return \@uniqs;
+ return \@uniqs;
}
sub _table_comment {
- my $self = shift;
- my ($table) = @_;
+ my $self = shift;
+ my ($table) = @_;
- my $table_comment = $self->next::method(@_);
+ my $table_comment = $self->next::method(@_);
- return $table_comment if $table_comment;
+ return $table_comment if $table_comment;
- ($table_comment) = $self->dbh->selectrow_array(<<'EOF', {}, $table->name,
$table->schema);
+ ($table_comment) =
+ $self->dbh->selectrow_array( <<'EOF', {}, $table->name, $table->schema );
SELECT pg_catalog.obj_description(oid)
FROM pg_catalog.pg_class
WHERE relname=? AND relnamespace=(SELECT oid FROM pg_catalog.pg_namespace
WHERE nspname=?)
EOF
- return $table_comment
+ return $table_comment;
}
-
sub _column_comment {
- my $self = shift;
- my ($table, $column_number, $column_name) = @_;
+ my $self = shift;
+ my ( $table, $column_number, $column_name ) = @_;
- my $column_comment = $self->next::method(@_);
+ my $column_comment = $self->next::method(@_);
- return $column_comment if $column_comment;
+ return $column_comment if $column_comment;
- return $self->dbh->selectrow_array(<<'EOF', {}, $column_number,
$table->name, $table->schema);
+ return $self->dbh->selectrow_array(
+ <<'EOF', {}, $column_number, $table->name, $table->schema );
SELECT pg_catalog.col_description(oid, ?)
FROM pg_catalog.pg_class
WHERE relname=? AND relnamespace=(SELECT oid FROM pg_catalog.pg_namespace
WHERE nspname=?)
@@ -194,186 +200,218 @@
# Make sure data_type's that don't need it don't have a 'size' column_info, and
# set the correct precision for datetime and varbit types.
sub _columns_info_for {
- my $self = shift;
- my ($table) = @_;
+ my $self = shift;
+ my ($table) = @_;
- my ($result, $raw) = $self->next::method(@_);
+ my ( $result, $raw ) = $self->next::method(@_);
+ my %pkeys;
- while (my ($col, $info) = each %$result) {
- my $data_type = $info->{data_type};
+ while ( my ( $col, $info ) = each %$result ) {
+ my $data_type = $info->{data_type};
- # these types are fixed size
- # XXX should this be a negative match?
- if ($data_type =~
-/^(?:bigint|int8|bigserial|serial8|bool(?:ean)?|box|bytea|cidr|circle|date|double
precision|float8|inet|integer|int|int4|line|lseg|macaddr|money|path|point|polygon|real|float4|smallint|int2|serial|serial4|text)\z/i)
{
- delete $info->{size};
- }
-# for datetime types, check if it has a precision or not
- elsif ($data_type =~ /^(?:interval|time|timestamp)\b/i) {
- if (lc($data_type) eq 'timestamp without time zone') {
- $info->{data_type} = 'timestamp';
- }
- elsif (lc($data_type) eq 'time without time zone') {
- $info->{data_type} = 'time';
- }
+ # these types are fixed size
+ # XXX should this be a negative match?
+ if ( $data_type =~
+/^(?:bigint|int8|bigserial|serial8|bool(?:ean)?|box|bytea|cidr|circle|date|double
precision|float8|inet|integer|int|int4|line|lseg|macaddr|money|path|point|polygon|real|float4|smallint|int2|serial|serial4|text)\z/i
+ )
+ {
+ delete $info->{size};
+ }
- my ($precision) = $self->schema->storage->dbh
- ->selectrow_array(<<EOF, {}, $table->name, $col);
+ # for datetime types, check if it has a precision or not
+ elsif ( $data_type =~ /^(?:interval|time|timestamp)\b/i ) {
+ if ( lc($data_type) eq 'timestamp without time zone' ) {
+ $info->{data_type} = 'timestamp';
+ }
+ elsif ( lc($data_type) eq 'time without time zone' ) {
+ $info->{data_type} = 'time';
+ }
+
+ my ($precision) = $self->schema->storage->dbh->selectrow_array(
+ <<EOF, {}, $table->name, $col );
SELECT datetime_precision
FROM information_schema.columns
WHERE table_name = ? and column_name = ?
EOF
- if ($data_type =~ /^time\b/i) {
- if ((not defined $precision) || $precision !~ /^\d/) {
- delete $info->{size};
- }
- else {
- my ($integer_datetimes) = $self->dbh
- ->selectrow_array('show integer_datetimes');
-
- my $max_precision =
- $integer_datetimes =~ /^on\z/i ? 6 : 10;
-
- if ($precision == $max_precision) {
- delete $info->{size};
- }
- else {
- $info->{size} = $precision;
- }
- }
- }
- elsif ((not defined $precision) || $precision !~ /^\d/ ||
$precision == 6) {
- delete $info->{size};
- }
- else {
- $info->{size} = $precision;
- }
+ if ( $data_type =~ /^time\b/i ) {
+ if ( ( not defined $precision ) || $precision !~ /^\d/ ) {
+ delete $info->{size};
}
- elsif ($data_type =~ /^(?:bit(?: varying)?|varbit)\z/i) {
- $info->{data_type} = 'varbit' if $data_type =~ /var/i;
+ else {
+ my ($integer_datetimes) =
+ $self->dbh->selectrow_array('show integer_datetimes');
+
+ my $max_precision = $integer_datetimes =~ /^on\z/i ? 6 : 10;
- my ($precision) = $self->dbh->selectrow_array(<<EOF, {},
$table->name, $col);
+ if ( $precision == $max_precision ) {
+ delete $info->{size};
+ }
+ else {
+ $info->{size} = $precision;
+ }
+ }
+ }
+ elsif ( ( not defined $precision )
+ || $precision !~ /^\d/
+ || $precision == 6 )
+ {
+ delete $info->{size};
+ }
+ else {
+ $info->{size} = $precision;
+ }
+ }
+ elsif ( $data_type =~ /^(?:bit(?: varying)?|varbit)\z/i ) {
+ $info->{data_type} = 'varbit' if $data_type =~ /var/i;
+
+ my ($precision) =
+ $self->dbh->selectrow_array( <<EOF, {}, $table->name, $col );
SELECT character_maximum_length
FROM information_schema.columns
WHERE table_name = ? and column_name = ?
EOF
- $info->{size} = $precision if $precision;
+ $info->{size} = $precision if $precision;
- $info->{size} = 1 if (not $precision) && lc($data_type) eq 'bit';
- }
- elsif ($data_type =~ /^(?:numeric|decimal)\z/i && (my $size =
$info->{size})) {
- $size =~ s/\s*//g;
+ $info->{size} = 1 if ( not $precision ) && lc($data_type) eq 'bit';
+ }
+ elsif ( $data_type =~ /^(?:numeric|decimal)\z/i
+ && ( my $size = $info->{size} ) )
+ {
+ $size =~ s/\s*//g;
- my ($scale, $precision) = split /,/, $size;
+ my ( $scale, $precision ) = split /,/, $size;
- $info->{size} = [ $precision, $scale ];
- }
- elsif (lc($data_type) eq 'character varying') {
- $info->{data_type} = 'varchar';
+ $info->{size} = [ $precision, $scale ];
+ }
+ elsif ( lc($data_type) eq 'character varying' ) {
+ $info->{data_type} = 'varchar';
- if (not $info->{size}) {
- $info->{data_type} = 'text';
- $info->{original}{data_type} = 'varchar';
- }
- }
- elsif (lc($data_type) eq 'character') {
- $info->{data_type} = 'char';
- }
- # DBD::Pg < 3.5.2 can get the order wrong on Pg >= 9.1.0
- elsif (
- ($DBD::Pg::VERSION >= 3.005002 or $self->dbh->{pg_server_version}
< 90100)
- and
- my $values = $raw->{$col}->{pg_enum_values}
- ) {
- $info->{extra}{list} = $values;
+ if ( not $info->{size} ) {
+ $info->{data_type} = 'text';
+ $info->{original}{data_type} = 'varchar';
+ }
+ }
+ elsif ( lc($data_type) eq 'character' ) {
+ $info->{data_type} = 'char';
+ }
- # Store its original name in extra for SQLT to pick up.
- $info->{extra}{custom_type_name} = $info->{data_type};
+ # DBD::Pg < 3.5.2 can get the order wrong on Pg >= 9.1.0
+ elsif (
+ (
+ $DBD::Pg::VERSION >= 3.005002
+ or $self->dbh->{pg_server_version} < 90100
+ )
+ and my $values = $raw->{$col}->{pg_enum_values}
+ )
+ {
+ $info->{extra}{list} = $values;
- $info->{data_type} = 'enum';
+ # Store its original name in extra for SQLT to pick up.
+ $info->{extra}{custom_type_name} = $info->{data_type};
- delete $info->{size};
- }
- else {
- my ($typetype) = $self->schema->storage->dbh
- ->selectrow_array(<<EOF, {}, $data_type);
+ $info->{data_type} = 'enum';
+
+ delete $info->{size};
+ }
+ else {
+ my ($typetype) =
+ $self->schema->storage->dbh->selectrow_array( <<EOF, {}, $data_type );
SELECT typtype
FROM pg_catalog.pg_type
WHERE oid = ?::regtype
EOF
- if ($typetype && $typetype eq 'e') {
- # The following will extract a list of allowed values for the
enum.
- my $order_column = $self->dbh->{pg_server_version} >= 90100 ?
'enumsortorder' : 'oid';
- $info->{extra}{list} = $self->dbh
- ->selectcol_arrayref(<<EOF, {}, $data_type);
+ if ( $typetype && $typetype eq 'e' ) {
+
+ # The following will extract a list of allowed values for the enum.
+ my $order_column =
+ $self->dbh->{pg_server_version} >= 90100 ? 'enumsortorder' : 'oid';
+ $info->{extra}{list} =
+ $self->dbh->selectcol_arrayref( <<EOF, {}, $data_type );
SELECT e.enumlabel
FROM pg_catalog.pg_enum e
WHERE e.enumtypid = ?::regtype
ORDER BY e.$order_column
EOF
- # Store its original name in extra for SQLT to pick up.
- $info->{extra}{custom_type_name} = $data_type;
+ # Store its original name in extra for SQLT to pick up.
+ $info->{extra}{custom_type_name} = $data_type;
- $info->{data_type} = 'enum';
+ $info->{data_type} = 'enum';
- delete $info->{size};
- }
- }
+ delete $info->{size};
+ }
+ }
- if (ref($info->{default_value}) eq 'SCALAR') {
- # process SERIAL columns
- if (${ $info->{default_value} } =~ /\bnextval\('([^:]+)'/i) {
- $info->{is_auto_increment} = 1;
- $info->{sequence} = $1;
- delete $info->{default_value};
- }
- # alias now() to current_timestamp for deploying to other DBs
- elsif (lc ${ $info->{default_value} } eq 'now()') {
- # do not use a ref to a constant, that breaks Data::Dump output
- ${$info->{default_value}} = 'current_timestamp';
-
- my $now = 'now()';
- $info->{original}{default_value} = \$now;
- }
- elsif (${ $info->{default_value} } =~ /\bCURRENT_TIMESTAMP\b/) {
- # PostgreSQL v10 upcases current_timestamp in default values
- ${ $info->{default_value} } =~ s/\b(CURRENT_TIMESTAMP)\b/lc
$1/ge;
- }
- }
+ if ( ref( $info->{default_value} ) eq 'SCALAR' ) {
- # detect 0/1 for booleans and rewrite
- if ($data_type =~ /^bool/i && exists $info->{default_value}) {
- if ($info->{default_value} eq '0') {
- my $false = 'false';
- $info->{default_value} = \$false;
- }
- elsif ($info->{default_value} eq '1') {
- my $true = 'true';
- $info->{default_value} = \$true;
- }
+ # process SERIAL columns
+ if ( ${ $info->{default_value} } =~ /\bnextval\('([^:]+)'/i ) {
+ $info->{is_auto_increment} = 1;
+ $info->{sequence} = $1;
+ delete $info->{default_value};
+ }
+
+ # alias now() to current_timestamp for deploying to other DBs
+ elsif ( lc ${ $info->{default_value} } eq 'now()' ) {
+
+ # do not use a ref to a constant, that breaks Data::Dump output
+ ${ $info->{default_value} } = 'current_timestamp';
+
+ my $now = 'now()';
+ $info->{original}{default_value} = \$now;
+ }
+ elsif ( ${ $info->{default_value} } =~ /\bCURRENT_TIMESTAMP\b/ ) {
+
+ # PostgreSQL v10 upcases current_timestamp in default values
+ ${ $info->{default_value} } =~ s/\b(CURRENT_TIMESTAMP)\b/lc $1/ge;
+ }
+
+ # if there's a default value + it's a primary key, set to retrieve the
default
+ # on insert even if it's not serial specifically
+ if ( !$info->{is_auto_increment} ) {
+ %pkeys = map { $_ => 1 } @{ $self->_table_pk_info($table) }
+ unless %pkeys;
+
+ if ( $pkeys{$col} ) {
+ $info->{retrieve_on_insert} = 1;
}
+ }
+ }
+
+ # detect 0/1 for booleans and rewrite
+ if ( $data_type =~ /^bool/i && exists $info->{default_value} ) {
+ if ( $info->{default_value} eq '0' ) {
+ my $false = 'false';
+ $info->{default_value} = \$false;
+ }
+ elsif ( $info->{default_value} eq '1' ) {
+ my $true = 'true';
+ $info->{default_value} = \$true;
+ }
}
+ }
- return $result;
+ return $result;
}
sub _view_definition {
- my ($self, $view) = @_;
+ my ( $self, $view ) = @_;
- my $def = $self->schema->storage->dbh->selectrow_array(<<'EOF', {},
$view->schema, $view->name);
+ my $def = $self->schema->storage->dbh->selectrow_array(
+ <<'EOF', {}, $view->schema, $view->name );
SELECT pg_catalog.pg_get_viewdef(oid)
FROM pg_catalog.pg_class
WHERE relnamespace = (SELECT OID FROM pg_catalog.pg_namespace WHERE nspname =
?)
AND relname = ?
EOF
- # The definition is returned as a complete statement including the
- # trailing semicolon, but that's not allowed in CREATE VIEW, so
- # strip it out
- $def =~ s/\s*;\s*\z//;
- return $def;
+
+ # The definition is returned as a complete statement including the
+ # trailing semicolon, but that's not allowed in CREATE VIEW, so
+ # strip it out
+ $def =~ s/\s*;\s*\z//;
+ return $def;
}
=head1 SEE ALSO
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/SQLAnywhere.pm
2022-11-23 19:51:38.000000000 +0100
@@ -8,7 +8,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/SQLite.pm
2022-11-23 19:51:38.000000000 +0100
@@ -6,7 +6,7 @@
use mro 'c3';
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Common.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Sybase/Microsoft_SQL_Server.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::DBI::MSSQL';
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm
2022-11-23 19:51:38.000000000 +0100
@@ -9,7 +9,7 @@
use DBIx::Class::Schema::Loader::Table::Sybase ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/Writing.pm
2022-11-23 19:51:38.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
# Empty. POD only.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm
2022-11-23 19:51:38.000000000 +0100
@@ -12,7 +12,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
=head1 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI.pm
--- old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/DBI.pm
2018-03-21 14:41:19.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/DBI.pm
2022-11-23 19:51:38.000000000 +0100
@@ -10,7 +10,7 @@
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
__PACKAGE__->mk_group_accessors('simple', qw/
_disable_pk_detection
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pm
2017-11-20 20:52:03.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pm
2022-11-23 19:47:42.000000000 +0100
@@ -32,7 +32,18 @@
},
pod => {
title => 'use_moose',
- desc => 'Modules required for the use_moose option',
+ desc => 'Modules required for the use_moose option (without
only_autoclean)',
+ },
+ },
+ use_moose_only_autoclean => {
+ req => {
+ 'Moose' => '2.1400',
+ 'MooseX::NonMoose' => '0.25',
+ 'namespace::autoclean' => '0.09',
+ },
+ pod => {
+ title => 'use_moose_only_autoclean',
+ desc => 'Modules required for the use_moose + only_autoclean options',
},
},
@@ -981,6 +992,7 @@
File::Path::mkpath([$dir]);
+ # used in example pod
my $moosever = $class->req_list_for('use_moose')->{'Moose'}
or die "Hrmm? No Moose dep?";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pod
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pod
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pod
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pod
2022-11-23 19:51:38.000000000 +0100
@@ -20,7 +20,7 @@
$EUMM_ARGS{CONFIGURE_REQUIRES} = {
%{ $EUMM_ARGS{CONFIGURE_REQUIRES} || {} },
- 'DBIx::Class::Schema::Loader' => '0.07049',
+ 'DBIx::Class::Schema::Loader' => '0.07051',
};
...
@@ -328,7 +328,7 @@
=head3 use_moose
-Modules required for the use_moose option
+Modules required for the use_moose option (without only_autoclean)
=over
@@ -338,6 +338,22 @@
=item * MooseX::NonMoose >= 0.25
+=item * namespace::autoclean >= 0.09
+
+=back
+
+=head2 use_moose_only_autoclean
+
+=head3 use_moose_only_autoclean
+
+Modules required for the use_moose + only_autoclean options
+
+=over
+
+=item * Moose >= 2.1400
+
+=item * MooseX::NonMoose >= 0.25
+
=item * namespace::autoclean >= 0.09
=back
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_040.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_05';
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
sub _relnames_and_method {
my ( $self, $local_moniker, $rel, $cond, $uniqs, $counters ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm
2022-11-23 19:51:38.000000000 +0100
@@ -8,7 +8,7 @@
use namespace::clean;
use Lingua::EN::Inflect::Number ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
sub _to_PL {
my ($self, $name) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_06.pm
2022-11-23 19:51:38.000000000 +0100
@@ -5,7 +5,7 @@
use base 'DBIx::Class::Schema::Loader::RelBuilder::Compat::v0_07';
use mro 'c3';
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
sub _normalize_name {
my ($self, $name) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_07.pm
2022-11-23 19:51:38.000000000 +0100
@@ -17,7 +17,7 @@
=cut
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
sub _strip_id_postfix {
my ($self, $name) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
---
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
2018-03-21 14:41:19.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/RelBuilder.pm
2022-11-23 19:51:38.000000000 +0100
@@ -17,7 +17,7 @@
use Class::Unload ();
use Class::Inspector ();
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
# Glossary:
#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/Utils.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/Utils.pm
--- old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader/Utils.pm
2018-03-20 23:18:24.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader/Utils.pm
2022-11-23 19:47:42.000000000 +0100
@@ -4,6 +4,7 @@
use strict;
use warnings;
use Test::More;
+use String::CamelCase 'wordsplit';
use Carp::Clan qw/^DBIx::Class/;
use List::Util 'all';
use namespace::clean;
@@ -21,12 +22,6 @@
my $LF = "\x0a";
my $CRLF = "\x0d\x0a";
-# Copied from String::CamelCase because of RT#123030
-sub wordsplit {
- my $s = shift;
- split /[_\s]+|\b|(?<![A-Z])(?=[A-Z])|(?<=[A-Z])(?=[A-Z][a-z])/, $s;
-}
-
sub split_name($;$) {
my ($name, $v) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader.pm
new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader.pm
--- old/DBIx-Class-Schema-Loader-0.07049/lib/DBIx/Class/Schema/Loader.pm
2018-03-21 14:41:19.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/lib/DBIx/Class/Schema/Loader.pm
2022-11-23 19:51:38.000000000 +0100
@@ -16,7 +16,7 @@
# Always remember to do all digits for the version even if they're 0
# i.e. first release of 0.XX *must* be 0.XX000. This avoids fBSD ports
# brain damage and presumably various other packaging systems too
-our $VERSION = '0.07049';
+our $VERSION = '0.07051';
__PACKAGE__->mk_group_accessors('inherited', qw/
_loader_args
@@ -660,6 +660,8 @@
domm: Thomas Klausner <[email protected]>
+ether: Karen Etheridge <[email protected]>
+
gugu: Andrey Kostenko <[email protected]>
hobbs: Andrew Rodland <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/maint/Makefile.PL.include
new/DBIx-Class-Schema-Loader-0.07051/maint/Makefile.PL.include
--- old/DBIx-Class-Schema-Loader-0.07049/maint/Makefile.PL.include
2018-03-20 23:23:15.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/maint/Makefile.PL.include
2022-11-23 19:47:42.000000000 +0100
@@ -1,28 +1,28 @@
-BEGIN { -e 'Distar' or system("git clone
git://git.shadowcat.co.uk/p5sagit/Distar.git") }
+BEGIN { -e 'Distar' or system('git clone [email protected]:p5sagit/Distar.git') }
use lib 'Distar/lib';
use Distar 0.001;
author 'Caelum: Rafael Kitover <[email protected]>';
manifest_include 't/backcompat/0.04006/lib' => qr/.*\.pm$/;
-manifest_include 't/bin' => qr/\w+/;
-manifest_include 'script' => qr/\w+/;
+manifest_include 't/bin' => qr/\w+/;
+manifest_include 'script' => qr/\w+/;
use FindBin;
use lib "$FindBin::Bin/lib";
require DBIx::Class::Schema::Loader::Optional::Dependencies;
-my $optdeps = 'DBIx::Class::Schema::Loader::Optional::Dependencies';
-my @req_groups = keys %{ $optdeps->req_group_list };
+my $optdeps = 'DBIx::Class::Schema::Loader::Optional::Dependencies';
+my @req_groups = keys %{ $optdeps->req_group_list };
my @other_groups = grep { !/rdbms/ } @req_groups;
-my %dev_requires = %{ $optdeps->modreq_list_for(\@other_groups) };
+my %dev_requires = %{ $optdeps->modreq_list_for( \@other_groups ) };
eval {
# eval as blows up if not all deps installed
# should probably be part of "build" stage instead
- $optdeps->_gen_pod(undef, 'lib');
+ $optdeps->_gen_pod( undef, 'lib' );
};
# vim: ft=perl et sts=4 sw=4 tw=0:
# list in case more added - returned to caller
-(\%dev_requires);
+( \%dev_requires );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/maint/travis-ci_scripts/30_before_script.bash
new/DBIx-Class-Schema-Loader-0.07051/maint/travis-ci_scripts/30_before_script.bash
---
old/DBIx-Class-Schema-Loader-0.07049/maint/travis-ci_scripts/30_before_script.bash
2018-03-21 00:22:47.000000000 +0100
+++
new/DBIx-Class-Schema-Loader-0.07051/maint/travis-ci_scripts/30_before_script.bash
2022-11-23 19:47:42.000000000 +0100
@@ -97,7 +97,7 @@
parallel_installdeps_notest YAML LWP Class::Trigger JSON::XS
DateTime::Format::Builder Class::Accessor::Grouped Package::Variant
parallel_installdeps_notest SQL::Abstract Moose Module::Install JSON
SQL::Translator File::Which
parallel_installdeps_notest Module::Install::ReadmeFromPod
Module::Install::AuthorTests
- parallel_installdeps_notest Math::Base36 DBD::mysql DBD::Pg Math::BigInt
+ parallel_installdeps_notest Math::Base36 DBD::mysql DBD::Pg Math::BigInt
String::CamelCase
parallel_installdeps_notest MooseX::NonMoose MooseX::MarkAsMethods
namespace::autoclean curry
if env | grep -q '^DBICTEST_.*_ODBC_DSN'; then
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/DBIx-Class-Schema-Loader-0.07049/t/10_03pg_common.t
new/DBIx-Class-Schema-Loader-0.07051/t/10_03pg_common.t
--- old/DBIx-Class-Schema-Loader-0.07049/t/10_03pg_common.t 2018-03-20
23:14:14.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/t/10_03pg_common.t 2022-11-23
19:47:42.000000000 +0100
@@ -288,6 +288,14 @@
name
) where active
},
+ q{
+ create table pg_loader_test13 (
+ created DATE PRIMARY KEY DEFAULT now(),
+ updated DATE DEFAULT now(),
+ type text,
+ value integer
+ )
+ }
],
pre_drop_ddl => [
'DROP SCHEMA dbicsl_test CASCADE',
@@ -296,8 +304,8 @@
'DROP TYPE pg_loader_test_enum',
'DROP VIEW pg_loader_test11',
],
- drop => [ qw/pg_loader_test1 pg_loader_test2 pg_loader_test9
pg_loader_test10 pg_loader_test12/ ],
- count => 11 + 33 * 2, # regular + multi-schema * 2
+ drop => [ map "pg_loader_test$_", 1, 2,9, 10, 12, 13 ],
+ count => 13 + 33 * 2, # regular + multi-schema * 2
run => sub {
my ($schema, $monikers, $classes) = @_;
@@ -512,6 +520,13 @@
{
$schema->source($monikers->{pg_loader_test12})->unique_constraints },
{ pg_loader_test12_value => ['value'] },
'unique indexes are dumped correctly';
+
+ my $pg_13 = $schema->source($monikers->{pg_loader_test13});
+ is $pg_13->column_info('created')->{retrieve_on_insert}, 1,
+ 'adds roi for primary key col w/ non serial default';
+
+ is $pg_13->column_info('updated')->{retrieve_on_insert}, undef,
+ 'does not add roi for non-primary keys with a default';
},
},
)->run_tests();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/DBIx-Class-Schema-Loader-0.07049/t/lib/dbixcsl_common_tests.pm
new/DBIx-Class-Schema-Loader-0.07051/t/lib/dbixcsl_common_tests.pm
--- old/DBIx-Class-Schema-Loader-0.07049/t/lib/dbixcsl_common_tests.pm
2018-03-20 23:21:27.000000000 +0100
+++ new/DBIx-Class-Schema-Loader-0.07051/t/lib/dbixcsl_common_tests.pm
2022-11-23 19:47:42.000000000 +0100
@@ -224,10 +224,15 @@
my $debug = ($self->{verbose} > 1) ? 1 : 0;
if ($ENV{SCHEMA_LOADER_TESTS_USE_MOOSE}) {
+ # on travis, we require the intersection of both sets of prereqs
if (not
DBIx::Class::Schema::Loader::Optional::Dependencies->req_ok_for('use_moose')) {
die sprintf ("Missing dependencies for
SCHEMA_LOADER_TESTS_USE_MOOSE: %s\n",
DBIx::Class::Schema::Loader::Optional::Dependencies->req_missing_for('use_moose'));
}
+ if (not
DBIx::Class::Schema::Loader::Optional::Dependencies->req_ok_for('use_moose_only_autoclean'))
{
+ die sprintf ("Missing dependencies for
SCHEMA_LOADER_TESTS_USE_MOOSE: %s\n",
+
DBIx::Class::Schema::Loader::Optional::Dependencies->req_missing_for('use_moose_only_autoclean'));
+ }
$self->{use_moose} = 1;
}
