tests from multicreate

[chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate] / t / lib / DBICTest / Schema / CollectionObject.pm

diff --git a/t/lib/DBICTest/Schema/CollectionObject.pm b/t/lib/DBICTest/Schema/CollectionObject.pm
new file mode 100644 (file)
index 0000000..d05ae5d
--- /dev/null
+++ b/t/lib/DBICTest/Schema/CollectionObject.pm
@@ -0,0 +1,24 @@
+package # hide from PAUSE \r
+    DBICTest::Schema::CollectionObject;\r
+\r
+use base qw/DBIx::Class::Core/;\r
+\r
+__PACKAGE__->table('collection_object');\r
+__PACKAGE__->add_columns(\r
+  'collection' => {\r
+    data_type => 'integer',\r
+  },\r
+  'object' => {\r
+    data_type => 'integer',\r
+  },\r
+);\r
+__PACKAGE__->set_primary_key(qw/collection object/);\r
+\r
+__PACKAGE__->belongs_to( collection => "DBICTest::Schema::Collection",\r
+                         { "foreign.collectionid" => "self.collection" }\r
+                       );\r
+__PACKAGE__->belongs_to( object => "DBICTest::Schema::TypedObject",\r
+                         { "foreign.objectid" => "self.object" }\r
+                       );\r
+\r
+1;\r