[Bast-commits] r9567 -
DBIx-Class/0.08/branches/extended_rels/t/lib/DBICTest/Schema
ruoso at dev.catalyst.perl.org
ruoso at dev.catalyst.perl.org
Thu Jun 3 09:46:33 GMT 2010
Author: ruoso
Date: 2010-06-03 10:46:33 +0100 (Thu, 03 Jun 2010)
New Revision: 9567
Modified:
DBIx-Class/0.08/branches/extended_rels/t/lib/DBICTest/Schema/Artist.pm
Log:
test that shows how binds in joins are missing.
Modified: DBIx-Class/0.08/branches/extended_rels/t/lib/DBICTest/Schema/Artist.pm
===================================================================
--- DBIx-Class/0.08/branches/extended_rels/t/lib/DBICTest/Schema/Artist.pm 2010-06-03 09:46:13 UTC (rev 9566)
+++ DBIx-Class/0.08/branches/extended_rels/t/lib/DBICTest/Schema/Artist.pm 2010-06-03 09:46:33 UTC (rev 9567)
@@ -61,6 +61,18 @@
);
__PACKAGE__->has_many(
+ cds_80s_noopt => 'DBICTest::Schema::CD',
+ sub {
+ my ( $me_alias, $rel_alias, $me_result_source, $rel_name, $optional_me_object ) = @_;
+ return
+ ({ "${rel_alias}.artist" => { '=' => \"${me_alias}.artistid"},
+ "${rel_alias}.year" => { '>', "1979",
+ '<', "1990" }
+ });
+ }
+);
+
+__PACKAGE__->has_many(
cds_90s => 'DBICTest::Schema::CD',
sub {
my ( $me_alias, $rel_alias, $me_result_source, $rel_name, $optional_me_object ) = @_;
More information about the Bast-commits
mailing list