[libdbix-class-helpers-perl] 01/06: Imported Upstream version 2.019004
gregor herrmann
gregoa at debian.org
Sat Feb 15 23:19:14 UTC 2014
This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository libdbix-class-helpers-perl.
commit de5170f4a64925348d10a3fcec96f8dee51714c9
Author: gregor herrmann <gregoa at debian.org>
Date: Sat Feb 15 23:44:05 2014 +0100
Imported Upstream version 2.019004
---
contributing => CONTRIBUTING | 0
Changes | 7 +++++++
MANIFEST | 2 +-
META.json | 6 +++---
META.yml | 6 +++---
Makefile.PL | 6 +++---
README | 2 +-
cpanfile | 2 +-
dist.ini | 4 ++--
lib/DBIx/Class/Helper/IgnoreWantarray.pm | 7 ++++---
lib/DBIx/Class/Helper/JoinTable.pm | 7 ++++---
lib/DBIx/Class/Helper/Random.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/AutoRemoveColumns.pm | 10 +++++++---
.../Class/Helper/ResultSet/CorrelateRelationship.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/IgnoreWantarray.pm | 10 +++++++---
lib/DBIx/Class/Helper/ResultSet/Me.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/NoColumns.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Random.pm | 8 +++++---
lib/DBIx/Class/Helper/ResultSet/RemoveColumns.pm | 10 +++++++---
lib/DBIx/Class/Helper/ResultSet/ResultClassDWIM.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/SearchOr.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/SetOperations.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut.pm | 7 ++++---
.../Class/Helper/ResultSet/Shortcut/AddColumns.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut/Columns.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut/Distinct.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut/GroupBy.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut/HRI.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut/HasRows.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut/Limit.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderBy.pm | 7 ++++---
.../Class/Helper/ResultSet/Shortcut/OrderByMagic.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Shortcut/Prefetch.pm | 5 ++++-
lib/DBIx/Class/Helper/ResultSet/Shortcut/Rows.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/Union.pm | 7 ++++---
lib/DBIx/Class/Helper/ResultSet/VirtualView.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/CleanResultSet.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/JoinTable.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/NumifyGet.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/OnColumnChange.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/ProxyResultSetMethod.pm | 20 ++++++++++++++++----
lib/DBIx/Class/Helper/Row/ProxyResultSetUpdate.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/RelationshipDWIM.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/SelfResultSet.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/StorageValues.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/SubClass.pm | 7 ++++---
lib/DBIx/Class/Helper/Row/ToJSON.pm | 7 ++++---
lib/DBIx/Class/Helper/Schema/DateTime.pm | 7 ++++---
lib/DBIx/Class/Helper/Schema/GenerateSource.pm | 7 ++++---
lib/DBIx/Class/Helper/Schema/LintContents.pm | 11 +++++------
lib/DBIx/Class/Helper/Schema/QuoteNames.pm | 7 ++++---
lib/DBIx/Class/Helper/SubClass.pm | 7 ++++---
lib/DBIx/Class/Helper/VirtualView.pm | 7 ++++---
lib/DBIx/Class/Helpers.pm | 8 +++++---
lib/DBIx/Class/Helpers/Util.pm | 7 ++++---
t/lib/ddl.sql | 2 +-
t/resultset/ignore-wantarray.t | 5 +++++
t/row/proxy-resultset-method.t | 8 ++++++++
t/schema/lint-contents.t | 12 ++++++------
60 files changed, 253 insertions(+), 164 deletions(-)
diff --git a/contributing b/CONTRIBUTING
similarity index 100%
rename from contributing
rename to CONTRIBUTING
diff --git a/Changes b/Changes
index f741926..2f2a109 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,12 @@
Revision history for DBIx-Class-Helpers
+2.019004 2014-02-14 07:53:19 America/Chicago
+ - Make IgnoreWantarray's search die in void context
+
+2.019003 2014-02-07 22:21:47-06:00 America/Chicago
+ - Fix ->copy on rows with proxied ResultSet methods (thanks moltar for the
+ test!) (NOTE: This fix is what requires upgrading to DBIC 0.08260)
+
2.019002 2014-01-12 09:40:41 America/Chicago
- Pick SQL for random row selection in a cleaner way
- Stop using Class::MOP::load_class (RT#91035)
diff --git a/MANIFEST b/MANIFEST
index c368a0a..f8bc00d 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,3 +1,4 @@
+CONTRIBUTING
Changes
LICENSE
MANIFEST
@@ -5,7 +6,6 @@ META.json
META.yml
Makefile.PL
README
-contributing
cpanfile
dist.ini
inc/Dist/Zilla/Plugin/DBICSgen.pm
diff --git a/META.json b/META.json
index f6c7aea..31f1289 100644
--- a/META.json
+++ b/META.json
@@ -4,7 +4,7 @@
"Arthur Axel \"fREW\" Schmidt <frioux+cpan at gmail.com>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.132830",
+ "generated_by" : "Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.120921",
"license" : [
"perl_5"
],
@@ -27,7 +27,7 @@
"runtime" : {
"requires" : {
"Carp::Clan" : "6.04",
- "DBIx::Class" : "0.08127",
+ "DBIx::Class" : "0.0826",
"DBIx::Class::Candy" : "0.001003",
"DBIx::Introspector" : "0",
"Lingua::EN::Inflect" : "0",
@@ -62,6 +62,6 @@
"web" : "https://github.com/frioux/DBIx-Class-Helpers"
}
},
- "version" : "2.019002"
+ "version" : "2.019004"
}
diff --git a/META.yml b/META.yml
index f2984e5..b493861 100644
--- a/META.yml
+++ b/META.yml
@@ -11,7 +11,7 @@ build_requires:
configure_requires:
ExtUtils::MakeMaker: 6.30
dynamic_config: 0
-generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.132830'
+generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -19,7 +19,7 @@ meta-spec:
name: DBIx-Class-Helpers
requires:
Carp::Clan: 6.04
- DBIx::Class: 0.08127
+ DBIx::Class: 0.0826
DBIx::Class::Candy: 0.001003
DBIx::Introspector: 0
Lingua::EN::Inflect: 0
@@ -34,4 +34,4 @@ resources:
bugtracker: https://github.com/frioux/DBIx-Class-Helpers/issues
homepage: https://github.com/frioux/DBIx-Class-Helpers
repository: https://github.com/frioux/DBIx-Class-Helpers.git
-version: 2.019002
+version: 2.019004
diff --git a/Makefile.PL b/Makefile.PL
index 8d4716f..223e1c1 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -21,7 +21,7 @@ my %WriteMakefileArgs = (
"NAME" => "DBIx::Class::Helpers",
"PREREQ_PM" => {
"Carp::Clan" => "6.04",
- "DBIx::Class" => "0.08127",
+ "DBIx::Class" => "0.0826",
"DBIx::Class::Candy" => "0.001003",
"DBIx::Introspector" => 0,
"Lingua::EN::Inflect" => 0,
@@ -40,7 +40,7 @@ my %WriteMakefileArgs = (
"Test::Exception" => 0,
"Test::More" => "0.94"
},
- "VERSION" => "2.019002",
+ "VERSION" => "2.019004",
"test" => {
"TESTS" => "t/*.t t/resultset/*.t t/resultset/shortcut/*.t t/row/*.t t/schema/*.t"
}
@@ -50,7 +50,7 @@ my %WriteMakefileArgs = (
my %FallbackPrereqs = (
"Carp::Clan" => "6.04",
"DBD::SQLite" => 0,
- "DBIx::Class" => "0.08127",
+ "DBIx::Class" => "0.0826",
"DBIx::Class::Candy" => "0.001003",
"DBIx::Introspector" => 0,
"DateTime::Format::SQLite" => 0,
diff --git a/README b/README
index ae935e5..fe785b2 100644
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
DBIx::Class::Helpers - Simplify the common case stuff for DBIx::Class.
VERSION
- version 2.019002
+ version 2.019004
SYNOPSIS
package MyApp::Schema::Result::Foo_Bar;
diff --git a/cpanfile b/cpanfile
index 1fd9bf9..f36f0a5 100644
--- a/cpanfile
+++ b/cpanfile
@@ -1,4 +1,4 @@
-requires 'DBIx::Class' => 0.08127;
+requires 'DBIx::Class' => 0.08260;
requires 'Carp::Clan' => 6.04;
requires 'Sub::Exporter::Progressive' => 0.001006;
requires 'Lingua::EN::Inflect' => 0;
diff --git a/dist.ini b/dist.ini
index ac6e92a..f9e99b1 100644
--- a/dist.ini
+++ b/dist.ini
@@ -2,7 +2,7 @@ name = DBIx-Class-Helpers
author = Arthur Axel "fREW" Schmidt <frioux+cpan at gmail.com>
license = Perl_5
copyright_holder = Arthur Axel "fREW" Schmidt
-version = 2.019002
+version = 2.019004
[NextRelease]
[@Git]
@@ -12,7 +12,7 @@ issues = 1
[MetaJSON]
[PodWeaver]
-[OurPkgVersion]
+[PkgVersion]
[ReadmeFromPod]
[PodSyntaxTests]
diff --git a/lib/DBIx/Class/Helper/IgnoreWantarray.pm b/lib/DBIx/Class/Helper/IgnoreWantarray.pm
index 57f19a2..a1ab91d 100644
--- a/lib/DBIx/Class/Helper/IgnoreWantarray.pm
+++ b/lib/DBIx/Class/Helper/IgnoreWantarray.pm
@@ -1,9 +1,10 @@
package DBIx::Class::Helper::IgnoreWantarray;
+{
+ $DBIx::Class::Helper::IgnoreWantarray::VERSION = '2.019004';
+}
use parent 'DBIx::Class::Helper::ResultSet::IgnoreWantarray';
-our $VERSION = '2.019002'; # VERSION
-
use Carp::Clan;
carp 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 3;
croak 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 4;
@@ -24,7 +25,7 @@ DBIx::Class::Helper::IgnoreWantarray - (DEPRECATED) Get rid of search context is
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 DESCRIPTION
diff --git a/lib/DBIx/Class/Helper/JoinTable.pm b/lib/DBIx/Class/Helper/JoinTable.pm
index 23a180e..f04979e 100644
--- a/lib/DBIx/Class/Helper/JoinTable.pm
+++ b/lib/DBIx/Class/Helper/JoinTable.pm
@@ -1,9 +1,10 @@
package DBIx::Class::Helper::JoinTable;
+{
+ $DBIx::Class::Helper::JoinTable::VERSION = '2.019004';
+}
use parent 'DBIx::Class::Helper::Row::JoinTable';
-our $VERSION = '2.019002'; # VERSION
-
use Carp::Clan;
carp 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 3;
croak 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 4;
@@ -24,7 +25,7 @@ DBIx::Class::Helper::JoinTable - (DEPRECATED) Easily set up join tables with DBI
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 DESCRIPTION
diff --git a/lib/DBIx/Class/Helper/Random.pm b/lib/DBIx/Class/Helper/Random.pm
index 61f22da..bd20e23 100644
--- a/lib/DBIx/Class/Helper/Random.pm
+++ b/lib/DBIx/Class/Helper/Random.pm
@@ -1,9 +1,10 @@
package DBIx::Class::Helper::Random;
+{
+ $DBIx::Class::Helper::Random::VERSION = '2.019004';
+}
use parent 'DBIx::Class::Helper::ResultSet::Random';
-our $VERSION = '2.019002'; # VERSION
-
use Carp::Clan;
carp 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 3;
croak 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 4;
@@ -24,7 +25,7 @@ DBIx::Class::Helper::Random - (DEPRECATED) Get random rows from a ResultSet
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 DESCRIPTION
diff --git a/lib/DBIx/Class/Helper/ResultSet.pm b/lib/DBIx/Class/Helper/ResultSet.pm
index 2c426b1..ce6e6e7 100644
--- a/lib/DBIx/Class/Helper/ResultSet.pm
+++ b/lib/DBIx/Class/Helper/ResultSet.pm
@@ -1,4 +1,7 @@
package DBIx::Class::Helper::ResultSet;
+{
+ $DBIx::Class::Helper::ResultSet::VERSION = '2.019004';
+}
use parent qw{
DBIx::Class::Helper::ResultSet::AutoRemoveColumns
@@ -16,8 +19,6 @@ use parent qw{
# ABSTRACT: All the ResultSet Helpers in one place
-our $VERSION = '2.019002'; # VERSION
-
1;
__END__
@@ -32,7 +33,7 @@ DBIx::Class::Helper::ResultSet - All the ResultSet Helpers in one place
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 DESCRIPTION
diff --git a/lib/DBIx/Class/Helper/ResultSet/AutoRemoveColumns.pm b/lib/DBIx/Class/Helper/ResultSet/AutoRemoveColumns.pm
index 8ac9024..a198ff9 100644
--- a/lib/DBIx/Class/Helper/ResultSet/AutoRemoveColumns.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/AutoRemoveColumns.pm
@@ -1,8 +1,12 @@
package DBIx::Class::Helper::ResultSet::AutoRemoveColumns;
+{
+ $DBIx::Class::Helper::ResultSet::AutoRemoveColumns::VERSION = '2.019004';
+}
-# ABSTRACT: Automatically remove columns from a ResultSet
+use strict;
+use warnings;
-our $VERSION = '2.019002'; # VERSION
+# ABSTRACT: Automatically remove columns from a ResultSet
use parent 'DBIx::Class::Helper::ResultSet::RemoveColumns', 'DBIx::Class';
@@ -66,7 +70,7 @@ DBIx::Class::Helper::ResultSet::AutoRemoveColumns - Automatically remove columns
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/CorrelateRelationship.pm b/lib/DBIx/Class/Helper/ResultSet/CorrelateRelationship.pm
index 7d66878..34d3d59 100644
--- a/lib/DBIx/Class/Helper/ResultSet/CorrelateRelationship.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/CorrelateRelationship.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::CorrelateRelationship;
+{
+ $DBIx::Class::Helper::ResultSet::CorrelateRelationship::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Easily correlate your ResultSets
-our $VERSION = '2.019002'; # VERSION
-
sub correlate {
my ($self, $rel) = @_;
@@ -38,7 +39,7 @@ DBIx::Class::Helper::ResultSet::CorrelateRelationship - Easily correlate your Re
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/IgnoreWantarray.pm b/lib/DBIx/Class/Helper/ResultSet/IgnoreWantarray.pm
index 24b93a5..8d47ccd 100644
--- a/lib/DBIx/Class/Helper/ResultSet/IgnoreWantarray.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/IgnoreWantarray.pm
@@ -1,13 +1,17 @@
package DBIx::Class::Helper::ResultSet::IgnoreWantarray;
+{
+ $DBIx::Class::Helper::ResultSet::IgnoreWantarray::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Get rid of search context issues
-our $VERSION = '2.019002'; # VERSION
-
sub search {
+ $_[0]->throw_exception ('->search is *not* a mutator, calling it in void context makes no sense')
+ if !defined wantarray && (caller)[0] !~ /^\QDBIx::Class::/;
+
shift->search_rs(@_);
}
@@ -25,7 +29,7 @@ DBIx::Class::Helper::ResultSet::IgnoreWantarray - Get rid of search context issu
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/Me.pm b/lib/DBIx/Class/Helper/ResultSet/Me.pm
index b3689ed..0b3d622 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Me.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Me.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::Me;
+{
+ $DBIx::Class::Helper::ResultSet::Me::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Define predefined searches more nicely
-our $VERSION = '2.019002'; # VERSION
-
sub me { join('.', shift->current_source_alias, shift || q{}) }
1;
@@ -23,7 +24,7 @@ DBIx::Class::Helper::ResultSet::Me - Define predefined searches more nicely
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/NoColumns.pm b/lib/DBIx/Class/Helper/ResultSet/NoColumns.pm
index 0451d42..739133b 100644
--- a/lib/DBIx/Class/Helper/ResultSet/NoColumns.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/NoColumns.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::NoColumns;
+{
+ $DBIx::Class::Helper::ResultSet::NoColumns::VERSION = '2.019004';
+}
# ABSTRACT: Look ma, no columns!
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub no_columns { $_[0]->search(undef, { columns => [] }) }
1;
@@ -23,7 +24,7 @@ DBIx::Class::Helper::ResultSet::NoColumns - Look ma, no columns!
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/Random.pm b/lib/DBIx/Class/Helper/ResultSet/Random.pm
index 6add208..720c5f4 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Random.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Random.pm
@@ -1,14 +1,16 @@
package DBIx::Class::Helper::ResultSet::Random;
+{
+ $DBIx::Class::Helper::ResultSet::Random::VERSION = '2.019004';
+}
use strict;
use warnings;
+
use Module::Runtime 'use_module';
use Try::Tiny;
# ABSTRACT: Get random rows from a ResultSet
-our $VERSION = '2.019002'; # VERSION
-
sub _introspector {
my $d = use_module('DBIx::Introspector')
->new(drivers => '2013-12.01');
@@ -61,7 +63,7 @@ DBIx::Class::Helper::ResultSet::Random - Get random rows from a ResultSet
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/RemoveColumns.pm b/lib/DBIx/Class/Helper/ResultSet/RemoveColumns.pm
index 7359e18..9e9054d 100644
--- a/lib/DBIx/Class/Helper/ResultSet/RemoveColumns.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/RemoveColumns.pm
@@ -1,8 +1,12 @@
package DBIx::Class::Helper::ResultSet::RemoveColumns;
+{
+ $DBIx::Class::Helper::ResultSet::RemoveColumns::VERSION = '2.019004';
+}
-# ABSTRACT: Remove columns from a ResultSet
+use strict;
+use warnings;
-our $VERSION = '2.019002'; # VERSION
+# ABSTRACT: Remove columns from a ResultSet
sub _resolved_attrs {
my $self = $_[0];
@@ -33,7 +37,7 @@ DBIx::Class::Helper::ResultSet::RemoveColumns - Remove columns from a ResultSet
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/ResultClassDWIM.pm b/lib/DBIx/Class/Helper/ResultSet/ResultClassDWIM.pm
index 027ee6c..2de0a7b 100644
--- a/lib/DBIx/Class/Helper/ResultSet/ResultClassDWIM.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/ResultClassDWIM.pm
@@ -1,9 +1,10 @@
package DBIx::Class::Helper::ResultSet::ResultClassDWIM;
+{
+ $DBIx::Class::Helper::ResultSet::ResultClassDWIM::VERSION = '2.019004';
+}
# ABSTRACT: result_class => '::HRI' == WIN
-our $VERSION = '2.019002'; # VERSION
-
use strict;
use warnings;
@@ -37,7 +38,7 @@ DBIx::Class::Helper::ResultSet::ResultClassDWIM - result_class => '::HRI' == WIN
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/SearchOr.pm b/lib/DBIx/Class/Helper/ResultSet/SearchOr.pm
index 57a4ac8..4fb7c3e 100644
--- a/lib/DBIx/Class/Helper/ResultSet/SearchOr.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/SearchOr.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::SearchOr;
+{
+ $DBIx::Class::Helper::ResultSet::SearchOr::VERSION = '2.019004';
+}
# ABSTRACT: Combine ResultSet searches with OR's
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
use List::Util 'first';
use Carp::Clan;
use namespace::clean;
@@ -39,7 +40,7 @@ DBIx::Class::Helper::ResultSet::SearchOr - Combine ResultSet searches with OR's
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/SetOperations.pm b/lib/DBIx/Class/Helper/ResultSet/SetOperations.pm
index fa10845..4d63d6c 100644
--- a/lib/DBIx/Class/Helper/ResultSet/SetOperations.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/SetOperations.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::SetOperations;
+{
+ $DBIx::Class::Helper::ResultSet::SetOperations::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Do set operations with DBIx::Class
-our $VERSION = '2.019002'; # VERSION
-
# cribbed from perlfaq4
sub _compare_arrays {
my ($self, $first, $second) = @_;
@@ -106,7 +107,7 @@ DBIx::Class::Helper::ResultSet::SetOperations - Do set operations with DBIx::Cla
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut.pm
index 289a79c..2d25bed 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::Shortcut;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::VERSION = '2.019004';
+}
# ABSTRACT: Shortcuts to common searches (->order_by, etc)
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
use base (qw(
DBIx::Class::Helper::ResultSet::Shortcut::AddColumns
DBIx::Class::Helper::ResultSet::Shortcut::Columns
@@ -34,7 +35,7 @@ DBIx::Class::Helper::ResultSet::Shortcut - Shortcuts to common searches (->order
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/AddColumns.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/AddColumns.pm
index ed8789f..1af0754 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/AddColumns.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/AddColumns.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::ResultSet::Shortcut::AddColumns;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::AddColumns::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub add_columns { shift->search(undef, { '+columns' => shift }) }
1;
@@ -21,7 +22,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::AddColumns
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Columns.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Columns.pm
index 641d9f4..66ee6b5 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Columns.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Columns.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::ResultSet::Shortcut::Columns;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::Columns::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub columns { shift->search(undef, { columns => shift }) }
1;
@@ -21,7 +22,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::Columns
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Distinct.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Distinct.pm
index 42362da..3e3e6f8 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Distinct.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Distinct.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::ResultSet::Shortcut::Distinct;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::Distinct::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub distinct { $_[0]->search(undef, { distinct => defined $_[1] ? $_[1] : 1 }) }
1;
@@ -21,7 +22,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::Distinct
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/GroupBy.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/GroupBy.pm
index a0b2a4f..761611a 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/GroupBy.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/GroupBy.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::ResultSet::Shortcut::GroupBy;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::GroupBy::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub group_by { shift->search(undef, { group_by => shift }) }
1;
@@ -21,7 +22,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::GroupBy
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/HRI.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/HRI.pm
index 19a52b4..da755a3 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/HRI.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/HRI.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::ResultSet::Shortcut::HRI;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::HRI::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub hri {
shift->search(undef, {
result_class => 'DBIx::Class::ResultClass::HashRefInflator' })
@@ -24,7 +25,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::HRI
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/HasRows.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/HasRows.pm
index 47eee82..0ee84c5 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/HasRows.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/HasRows.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::Shortcut::HasRows;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::HasRows::VERSION = '2.019004';
+}
use strict;
use warnings;
use base 'DBIx::Class::Helper::ResultSet::Shortcut::Rows';
-our $VERSION = '2.019002'; # VERSION
-
sub has_rows { !! shift->rows(1)->next }
1;
@@ -23,7 +24,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::HasRows
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Limit.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Limit.pm
index caf70f8..916b792 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Limit.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Limit.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::Shortcut::Limit;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::Limit::VERSION = '2.019004';
+}
use strict;
use warnings;
use base 'DBIx::Class::Helper::ResultSet::Shortcut::Rows';
-our $VERSION = '2.019002'; # VERSION
-
sub limit { return shift->rows(@_) }
1;
@@ -23,7 +24,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::Limit
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderBy.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderBy.pm
index 3cf836a..3be1bf7 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderBy.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderBy.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::ResultSet::Shortcut::OrderBy;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::OrderBy::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub order_by { shift->search(undef, { order_by => shift }) }
1;
@@ -21,7 +22,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::OrderBy
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderByMagic.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderByMagic.pm
index 09907c7..ed2edea 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderByMagic.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/OrderByMagic.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::ResultSet::Shortcut::OrderByMagic;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::OrderByMagic::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
use base 'DBIx::Class::Helper::ResultSet::Shortcut::OrderBy';
sub order_by {
@@ -47,7 +48,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::OrderByMagic
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Prefetch.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Prefetch.pm
index 2ff11b8..14e2c0f 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Prefetch.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Prefetch.pm
@@ -1,4 +1,7 @@
package DBIx::Class::Helper::ResultSet::Shortcut::Prefetch;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::Prefetch::VERSION = '2.019004';
+}
use strict;
use warnings;
@@ -19,7 +22,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::Prefetch
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Rows.pm b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Rows.pm
index 10efc39..78ef827 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Shortcut/Rows.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Shortcut/Rows.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::ResultSet::Shortcut::Rows;
+{
+ $DBIx::Class::Helper::ResultSet::Shortcut::Rows::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub rows { shift->search(undef, { rows => shift }) }
1;
@@ -21,7 +22,7 @@ DBIx::Class::Helper::ResultSet::Shortcut::Rows
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 AUTHOR
diff --git a/lib/DBIx/Class/Helper/ResultSet/Union.pm b/lib/DBIx/Class/Helper/ResultSet/Union.pm
index 6990321..69e7392 100644
--- a/lib/DBIx/Class/Helper/ResultSet/Union.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/Union.pm
@@ -1,9 +1,10 @@
package DBIx::Class::Helper::ResultSet::Union;
+{
+ $DBIx::Class::Helper::ResultSet::Union::VERSION = '2.019004';
+}
use parent 'DBIx::Class::Helper::ResultSet::SetOperations';
-our $VERSION = '2.019002'; # VERSION
-
use Carp::Clan;
carp 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 3;
croak 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 4;
@@ -24,7 +25,7 @@ DBIx::Class::Helper::ResultSet::Union - (DEPRECATED) Get rid of search context i
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 DESCRIPTION
diff --git a/lib/DBIx/Class/Helper/ResultSet/VirtualView.pm b/lib/DBIx/Class/Helper/ResultSet/VirtualView.pm
index 3ab00c7..52ae91f 100644
--- a/lib/DBIx/Class/Helper/ResultSet/VirtualView.pm
+++ b/lib/DBIx/Class/Helper/ResultSet/VirtualView.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::ResultSet::VirtualView;
+{
+ $DBIx::Class::Helper::ResultSet::VirtualView::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Clean up your SQL namespace (DEPRECATED)
-our $VERSION = '2.019002'; # VERSION
-
sub as_virtual_view {
my $self = shift;
@@ -31,7 +32,7 @@ DBIx::Class::Helper::ResultSet::VirtualView - Clean up your SQL namespace (DEPRE
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/CleanResultSet.pm b/lib/DBIx/Class/Helper/Row/CleanResultSet.pm
index c24b052..d24104b 100644
--- a/lib/DBIx/Class/Helper/Row/CleanResultSet.pm
+++ b/lib/DBIx/Class/Helper/Row/CleanResultSet.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Row::CleanResultSet;
+{
+ $DBIx::Class::Helper::Row::CleanResultSet::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Shortcut for C<< ->resultset >>
-our $VERSION = '2.019002'; # VERSION
-
sub clean_rs { return shift->result_source->resultset }
1;
@@ -23,7 +24,7 @@ DBIx::Class::Helper::Row::CleanResultSet - Shortcut for C<< ->resultset >>
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/JoinTable.pm b/lib/DBIx/Class/Helper/Row/JoinTable.pm
index a93a39d..a26aee4 100644
--- a/lib/DBIx/Class/Helper/Row/JoinTable.pm
+++ b/lib/DBIx/Class/Helper/Row/JoinTable.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Row::JoinTable;
+{
+ $DBIx::Class::Helper::Row::JoinTable::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Easily set up join tables with DBIx::Class
-our $VERSION = '2.019002'; # VERSION
-
use DBIx::Class::Helpers::Util 'get_namespace_parts';
use Lingua::EN::Inflect ();
use String::CamelCase ();
@@ -194,7 +195,7 @@ DBIx::Class::Helper::Row::JoinTable - Easily set up join tables with DBIx::Class
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/NumifyGet.pm b/lib/DBIx/Class/Helper/Row/NumifyGet.pm
index bb53cb5..7b2a5bd 100644
--- a/lib/DBIx/Class/Helper/Row/NumifyGet.pm
+++ b/lib/DBIx/Class/Helper/Row/NumifyGet.pm
@@ -1,4 +1,7 @@
package DBIx::Class::Helper::Row::NumifyGet;
+{
+ $DBIx::Class::Helper::Row::NumifyGet::VERSION = '2.019004';
+}
use strict;
use warnings;
@@ -7,8 +10,6 @@ use Try::Tiny;
# ABSTRACT: Force numeric "context" on numeric columns
-our $VERSION = '2.019002'; # VERSION
-
sub get_column {
my ($self, $col) = @_;
@@ -48,7 +49,7 @@ DBIx::Class::Helper::Row::NumifyGet - Force numeric "context" on numeric columns
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/OnColumnChange.pm b/lib/DBIx/Class/Helper/Row/OnColumnChange.pm
index 53555c8..40765d8 100644
--- a/lib/DBIx/Class/Helper/Row/OnColumnChange.pm
+++ b/lib/DBIx/Class/Helper/Row/OnColumnChange.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Row::OnColumnChange;
+{
+ $DBIx::Class::Helper::Row::OnColumnChange::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Do things when the values of a column change
-our $VERSION = '2.019002'; # VERSION
-
use parent 'DBIx::Class::Helper::Row::StorageValues';
use List::Util 'first';
use DBIx::Class::Candy::Exports;
@@ -139,7 +140,7 @@ DBIx::Class::Helper::Row::OnColumnChange - Do things when the values of a column
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/ProxyResultSetMethod.pm b/lib/DBIx/Class/Helper/Row/ProxyResultSetMethod.pm
index dee7a20..6c655b1 100644
--- a/lib/DBIx/Class/Helper/Row/ProxyResultSetMethod.pm
+++ b/lib/DBIx/Class/Helper/Row/ProxyResultSetMethod.pm
@@ -1,25 +1,31 @@
package DBIx::Class::Helper::Row::ProxyResultSetMethod;
+{
+ $DBIx::Class::Helper::Row::ProxyResultSetMethod::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Efficiently reuse ResultSet methods from results with fallback
-our $VERSION = '2.019002'; # VERSION
-
-use base 'DBIx::Class::Helper::Row::SelfResultSet';
+use base 'DBIx::Class::Helper::Row::SelfResultSet', 'Class::Accessor::Grouped';
use Sub::Name ();
use DBIx::Class::Candy::Exports;
export_methods [qw( proxy_resultset_method )];
+__PACKAGE__->mk_group_accessors(inherited => '_proxy_slots');
+
sub proxy_resultset_method {
my ($self, $name, $attr) = @_;
my $rs_method = $attr->{resultset_method} || "with_$name";
my $slot = $attr->{slot} || $name;
+ $self->_proxy_slots([]) unless $self->_proxy_slots;
+ push @{$self->_proxy_slots}, $slot;
+
no strict 'refs';
my $method = $self . '::' . $name;
*{$method} = Sub::Name::subname $method, sub {
@@ -36,6 +42,12 @@ sub proxy_resultset_method {
}
}
+sub copy {
+ delete local @{$_[0]->{_column_data}}{@{$_[0]->_proxy_slots}};
+
+ shift->next::method(@_);
+}
+
1;
__END__
@@ -50,7 +62,7 @@ DBIx::Class::Helper::Row::ProxyResultSetMethod - Efficiently reuse ResultSet met
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/ProxyResultSetUpdate.pm b/lib/DBIx/Class/Helper/Row/ProxyResultSetUpdate.pm
index dc8beb3..b4e02ba 100644
--- a/lib/DBIx/Class/Helper/Row/ProxyResultSetUpdate.pm
+++ b/lib/DBIx/Class/Helper/Row/ProxyResultSetUpdate.pm
@@ -1,9 +1,10 @@
package DBIx::Class::Helper::Row::ProxyResultSetUpdate;
+{
+ $DBIx::Class::Helper::Row::ProxyResultSetUpdate::VERSION = '2.019004';
+}
# ABSTRACT: Efficiently reuse ResultSet updates from results
-our $VERSION = '2.019002'; # VERSION
-
use base 'DBIx::Class::Helper::Row::SelfResultSet';
sub update {
@@ -43,7 +44,7 @@ DBIx::Class::Helper::Row::ProxyResultSetUpdate - Efficiently reuse ResultSet upd
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/RelationshipDWIM.pm b/lib/DBIx/Class/Helper/Row/RelationshipDWIM.pm
index 0132756..c2120b4 100644
--- a/lib/DBIx/Class/Helper/Row/RelationshipDWIM.pm
+++ b/lib/DBIx/Class/Helper/Row/RelationshipDWIM.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Row::RelationshipDWIM;
+{
+ $DBIx::Class::Helper::Row::RelationshipDWIM::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Type less for your relationships!
-our $VERSION = '2.019002'; # VERSION
-
sub default_result_namespace {
die 'you forgot to set your default_result_namespace'
}
@@ -57,7 +58,7 @@ DBIx::Class::Helper::Row::RelationshipDWIM - Type less for your relationships!
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/SelfResultSet.pm b/lib/DBIx/Class/Helper/Row/SelfResultSet.pm
index a3ee9e5..11ff6df 100644
--- a/lib/DBIx/Class/Helper/Row/SelfResultSet.pm
+++ b/lib/DBIx/Class/Helper/Row/SelfResultSet.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Row::SelfResultSet;
+{
+ $DBIx::Class::Helper::Row::SelfResultSet::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Easily use ResultSet methods for the current row
-our $VERSION = '2.019002'; # VERSION
-
sub self_rs {
my ($self) = @_;
@@ -33,7 +34,7 @@ DBIx::Class::Helper::Row::SelfResultSet - Easily use ResultSet methods for the c
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/StorageValues.pm b/lib/DBIx/Class/Helper/Row/StorageValues.pm
index 087ffd6..a771979 100644
--- a/lib/DBIx/Class/Helper/Row/StorageValues.pm
+++ b/lib/DBIx/Class/Helper/Row/StorageValues.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Row::StorageValues;
+{
+ $DBIx::Class::Helper::Row::StorageValues::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Keep track of stored vs in-memory row values
-our $VERSION = '2.019002'; # VERSION
-
use parent 'DBIx::Class';
__PACKAGE__->mk_group_accessors(inherited => '_storage_value_columns');
@@ -80,7 +81,7 @@ DBIx::Class::Helper::Row::StorageValues - Keep track of stored vs in-memory row
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/SubClass.pm b/lib/DBIx/Class/Helper/Row/SubClass.pm
index 1dbe2c9..c8c67e9 100644
--- a/lib/DBIx/Class/Helper/Row/SubClass.pm
+++ b/lib/DBIx/Class/Helper/Row/SubClass.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Row::SubClass;
+{
+ $DBIx::Class::Helper::Row::SubClass::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Convenient subclassing with DBIx::Class
-our $VERSION = '2.019002'; # VERSION
-
use DBIx::Class::Helpers::Util qw{get_namespace_parts assert_similar_namespaces};
use DBIx::Class::Candy::Exports;
@@ -57,7 +58,7 @@ DBIx::Class::Helper::Row::SubClass - Convenient subclassing with DBIx::Class
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Row/ToJSON.pm b/lib/DBIx/Class/Helper/Row/ToJSON.pm
index 074f3fc..5d7158e 100644
--- a/lib/DBIx/Class/Helper/Row/ToJSON.pm
+++ b/lib/DBIx/Class/Helper/Row/ToJSON.pm
@@ -1,10 +1,11 @@
package DBIx::Class::Helper::Row::ToJSON;
+{
+ $DBIx::Class::Helper::Row::ToJSON::VERSION = '2.019004';
+}
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
use parent 'DBIx::Class';
# ABSTRACT: Remove the boilerplate from your TO_JSON functions
@@ -69,7 +70,7 @@ DBIx::Class::Helper::Row::ToJSON - Remove the boilerplate from your TO_JSON func
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Schema/DateTime.pm b/lib/DBIx/Class/Helper/Schema/DateTime.pm
index aa876e0..d13d4af 100644
--- a/lib/DBIx/Class/Helper/Schema/DateTime.pm
+++ b/lib/DBIx/Class/Helper/Schema/DateTime.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Schema::DateTime;
+{
+ $DBIx::Class::Helper::Schema::DateTime::VERSION = '2.019004';
+}
# ABSTRACT: DateTime helper
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
sub datetime_parser { return shift->storage->datetime_parser }
sub parse_datetime { return shift->datetime_parser->parse_datetime(@_) }
@@ -27,7 +28,7 @@ DBIx::Class::Helper::Schema::DateTime - DateTime helper
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Schema/GenerateSource.pm b/lib/DBIx/Class/Helper/Schema/GenerateSource.pm
index 0a64c32..4098731 100644
--- a/lib/DBIx/Class/Helper/Schema/GenerateSource.pm
+++ b/lib/DBIx/Class/Helper/Schema/GenerateSource.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Schema::GenerateSource;
+{
+ $DBIx::Class::Helper::Schema::GenerateSource::VERSION = '2.019004';
+}
# ABSTRACT: Generate sources directly from your Schema
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
use Scalar::Util 'blessed';
sub _schema_class { blessed($_[0]) || $_[0] }
@@ -43,7 +44,7 @@ DBIx::Class::Helper::Schema::GenerateSource - Generate sources directly from you
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Schema/LintContents.pm b/lib/DBIx/Class/Helper/Schema/LintContents.pm
index 4c4c980..71fd1ff 100644
--- a/lib/DBIx/Class/Helper/Schema/LintContents.pm
+++ b/lib/DBIx/Class/Helper/Schema/LintContents.pm
@@ -1,14 +1,13 @@
package DBIx::Class::Helper::Schema::LintContents;
+{
+ $DBIx::Class::Helper::Schema::LintContents::VERSION = '2.019004';
+}
use strict;
use warnings;
use Scalar::Util 'blessed';
-# ABSTRACT: Check the data in your database match your constraints
-
-our $VERSION = '2.019002'; # VERSION
-
sub null_check_source {
my ($self, $source_name, $non_nullable_columns) = @_;
@@ -115,11 +114,11 @@ __END__
=head1 NAME
-DBIx::Class::Helper::Schema::LintContents - Check the data in your database match your constraints
+DBIx::Class::Helper::Schema::LintContents
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/Schema/QuoteNames.pm b/lib/DBIx/Class/Helper/Schema/QuoteNames.pm
index de19fa8..e3f4f0f 100644
--- a/lib/DBIx/Class/Helper/Schema/QuoteNames.pm
+++ b/lib/DBIx/Class/Helper/Schema/QuoteNames.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helper::Schema::QuoteNames;
+{
+ $DBIx::Class::Helper::Schema::QuoteNames::VERSION = '2.019004';
+}
# ABSTRACT: force C<quote_names> on
use strict;
use warnings;
-our $VERSION = '2.019002'; # VERSION
-
use DBIx::Class::Helpers::Util 'normalize_connect_info';
sub connection {
@@ -32,7 +33,7 @@ DBIx::Class::Helper::Schema::QuoteNames - force C<quote_names> on
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helper/SubClass.pm b/lib/DBIx/Class/Helper/SubClass.pm
index c369a5d..a2f22ea 100644
--- a/lib/DBIx/Class/Helper/SubClass.pm
+++ b/lib/DBIx/Class/Helper/SubClass.pm
@@ -1,9 +1,10 @@
package DBIx::Class::Helper::SubClass;
+{
+ $DBIx::Class::Helper::SubClass::VERSION = '2.019004';
+}
use parent 'DBIx::Class::Helper::Row::SubClass';
-our $VERSION = '2.019002'; # VERSION
-
use Carp::Clan;
carp 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 3;
croak 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 4;
@@ -24,7 +25,7 @@ DBIx::Class::Helper::SubClass - (DEPRECATED) Convenient subclassing with DBIx::C
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 DESCRIPTION
diff --git a/lib/DBIx/Class/Helper/VirtualView.pm b/lib/DBIx/Class/Helper/VirtualView.pm
index f875bd9..4a43ea1 100644
--- a/lib/DBIx/Class/Helper/VirtualView.pm
+++ b/lib/DBIx/Class/Helper/VirtualView.pm
@@ -1,9 +1,10 @@
package DBIx::Class::Helper::VirtualView;
+{
+ $DBIx::Class::Helper::VirtualView::VERSION = '2.019004';
+}
use parent 'DBIx::Class::Helper::ResultSet::VirtualView';
-our $VERSION = '2.019002'; # VERSION
-
use Carp::Clan;
carp 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 3;
croak 'This module is deprecated! Please use the namespaced version instead!' if $VERSION >= 4;
@@ -24,7 +25,7 @@ DBIx::Class::Helper::VirtualView - (DEPRECATED) Clean up your SQL namespace
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 DESCRIPTION
diff --git a/lib/DBIx/Class/Helpers.pm b/lib/DBIx/Class/Helpers.pm
index a4ca226..587cb81 100644
--- a/lib/DBIx/Class/Helpers.pm
+++ b/lib/DBIx/Class/Helpers.pm
@@ -1,11 +1,13 @@
package DBIx::Class::Helpers;
+{
+ $DBIx::Class::Helpers::VERSION = '2.019004';
+}
+
use strict;
use warnings;
# ABSTRACT: Simplify the common case stuff for DBIx::Class.
-our $VERSION = '2.019002'; # VERSION
-
1; # this class isn't meant to be used
__END__
@@ -20,7 +22,7 @@ DBIx::Class::Helpers - Simplify the common case stuff for DBIx::Class.
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/lib/DBIx/Class/Helpers/Util.pm b/lib/DBIx/Class/Helpers/Util.pm
index 7a95d7f..078676b 100644
--- a/lib/DBIx/Class/Helpers/Util.pm
+++ b/lib/DBIx/Class/Helpers/Util.pm
@@ -1,12 +1,13 @@
package DBIx::Class::Helpers::Util;
+{
+ $DBIx::Class::Helpers::Util::VERSION = '2.019004';
+}
use strict;
use warnings;
# ABSTRACT: Helper utilities for DBIx::Class components
-our $VERSION = '2.019002'; # VERSION
-
use Sub::Exporter::Progressive -setup => {
exports => [
qw(
@@ -155,7 +156,7 @@ DBIx::Class::Helpers::Util - Helper utilities for DBIx::Class components
=head1 VERSION
-version 2.019002
+version 2.019004
=head1 SYNOPSIS
diff --git a/t/lib/ddl.sql b/t/lib/ddl.sql
index 99468f2..c42965f 100644
--- a/t/lib/ddl.sql
+++ b/t/lib/ddl.sql
@@ -1,6 +1,6 @@
--
-- Created by SQL::Translator::Producer::SQLite
--- Created on Sun Jan 12 09:40:42 2014
+-- Created on Fri Feb 14 07:53:23 2014
--
BEGIN TRANSACTION;
diff --git a/t/resultset/ignore-wantarray.t b/t/resultset/ignore-wantarray.t
index 4e6ab0d..c66a179 100644
--- a/t/resultset/ignore-wantarray.t
+++ b/t/resultset/ignore-wantarray.t
@@ -5,6 +5,7 @@ use warnings;
use lib 't/lib';
use Test::More;
+use Test::Fatal;
use TestSchema;
my $schema = TestSchema->deploy_or_connect();
@@ -20,4 +21,8 @@ isa_ok $rs2, 'DBIx::Class::ResultSet';
isa_ok $rs3, 'DBIx::Class::ResultSet';
isa_ok $rs4, 'DBIx::Class::ResultSet';
+like(exception {
+ $schema->resultset('Bar')->search
+}, qr/search is \*not\* a mutator/, 'correctly die in void ctx');
+
done_testing;
diff --git a/t/row/proxy-resultset-method.t b/t/row/proxy-resultset-method.t
index 37e96a3..733d16f 100644
--- a/t/row/proxy-resultset-method.t
+++ b/t/row/proxy-resultset-method.t
@@ -30,5 +30,13 @@ subtest 'loaded data' => sub {
is($g2->id_plus_two, 4, 'slot and specified method');
};
+subtest 'copy result' => sub {
+ ok !$schema->resultset('Gnarly')->search({ id => 100 })->count,
+ 'will not accidentally collide';
+ ok my $g3 = $g->copy({ id => 100 }), 'Copied result';
+ isa_ok $g3, 'DBIx::Class::Row';
+ is $g3->id, 100, 'id is correctly overridden';
+};
+
done_testing;
diff --git a/t/schema/lint-contents.t b/t/schema/lint-contents.t
index fac6de9..1a2e102 100644
--- a/t/schema/lint-contents.t
+++ b/t/schema/lint-contents.t
@@ -14,7 +14,7 @@ subtest 'null_check_source_auto' => sub {
$schema->prepopulate;
local $schema->source('Gnarly')->column_info('literature')->{is_nullable} = 0;
- cmp_deeply [map +{ $_ => $schema->null_check_source_auto($_)->count }, sort $schema->sources], [
+ cmp_deeply [map +{ $_ => $schema->null_check_source_auto($_)->count }, sort $schema->sources], supersetof(
{ Bar => 0 },
{ Bloaty => undef },
{ Foo => 0 },
@@ -22,7 +22,7 @@ subtest 'null_check_source_auto' => sub {
{ Gnarly => 3 },
{ Gnarly_Station => 0 },
{ Station => 0 },
- ], 'errors for Gnarly null_check_source';
+ ), 'errors for Gnarly null_check_source';
};
subtest 'dub_check_source_auto' => sub {
@@ -40,7 +40,7 @@ subtest 'dub_check_source_auto' => sub {
my $constraint_name = $_;
+{ "$source $constraint_name" => $constraints->{$constraint_name}->count }
} sort keys %$constraints;
- } grep { $_ ne 'Bloaty' } sort $schema->sources], [
+ } grep { $_ ne 'Bloaty' } sort $schema->sources], supersetof(
{ "Bar primary" => 0 },
{ "Foo primary" => 0 },
{ "Foo_Bar primary" => 0 },
@@ -48,7 +48,7 @@ subtest 'dub_check_source_auto' => sub {
{ "Gnarly primary" => 0 },
{ "Gnarly_Station primary" => 0 },
{ "Station primary" => 0 },
- ], 'Gnarly_name duplicated twice';
+ ), 'Gnarly_name duplicated twice';
};
subtest 'fk_check_source_auto' => sub {
@@ -72,14 +72,14 @@ subtest 'fk_check_source_auto' => sub {
my $fk_constraint_name = $_;
+{ "$source $fk_constraint_name" => $constraints->{$fk_constraint_name}->count }
} sort keys %$constraints;
- } grep { $_ ne 'Bloaty' } sort $schema->sources], [
+ } grep { $_ ne 'Bloaty' } sort $schema->sources], supersetof(
{ "Bar foo" => 0 },
{ "Foo bar" => 0 },
{ "Foo_Bar bar" => 2 },
{ "Foo_Bar foo" => 2 },
{ "Gnarly_Station gnarly" => 0 },
{ "Gnarly_Station station" => 0 },
- ], 'foo and bar constraints broken';
+ ), 'foo and bar constraints broken';
};
done_testing;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdbix-class-helpers-perl.git
More information about the Pkg-perl-cvs-commits
mailing list