[Bast-commits] r5361 - DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2009-01-28 15:09:23 +0000 (Wed, 28 Jan 2009)
New Revision: 5361

Added:
   DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Viewing.pm
Log:
added Viewing.pm

Added: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Viewing.pm
===================================================================
--- DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Viewing.pm	                        (rev 0)
+++ DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Viewing.pm	2009-01-28 15:09:23 UTC (rev 5361)
@@ -0,0 +1,23 @@
+package DBSchema::Result::Viewing;
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->table('viewing');
+__PACKAGE__->add_columns(
+  'user_id' => { data_type => 'integer' },
+  'dvd_id' => { data_type => 'integer' },
+);
+__PACKAGE__->set_primary_key(qw/user_id dvd_id/);
+
+__PACKAGE__->belongs_to(
+    user => 'DBSchema::Result::User',
+    {'foreign.id'=>'self.user_id'},
+);
+
+__PACKAGE__->belongs_to( 
+    dvd => 'DBSchema::Result::Dvd',
+    {'foreign.id'=>'self.dvd_id'},
+);
+
+;
+
+1;


Property changes on: DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result/Viewing.pm
___________________________________________________________________
Name: svn:executable
   + *