[Bast-commits] r9567 - DBIx-Class/0.08/branches/extended_rels/t/lib/DBICTest/Schema

[ruoso at dev.catalyst.perl.org]

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 ) = @_;