[Bast-commits] r5361 -
DBIx-Class-ResultSet-RecursiveUpdate/1.000/trunk/t/lib/DBSchema/Result
zby at dev.catalyst.perl.org
zby at dev.catalyst.perl.org
Wed Jan 28 15:09:23 GMT 2009
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
+ *
More information about the Bast-commits
mailing list