Rose-DB-Object-VCS/t/lib/PostDiff.pm

   1 package PostDiff;
   2
   3 use strict;
   4
   5 use base qw(DB::Object);
   6
   7 __PACKAGE__->meta->setup(
   8     table => 'post_diffs',
   9
  10     columns => [
  11         qw/ id post_id title content user_id revision addtime /,
  12     ],
  13
  14     primary_key_columns => [ qw/ id / ],
  15
  16     relationships => [
  17         post => {
  18             type       => 'many to one',
  19             class      => 'Post',
  20             key_columns => { post_id => 'id' }
  21         }
  22     ]
  23 );
  24
  25 =head1 AUTHOR
  26
  27 vti
  28
  29 =head1 LICENSE
  30
  31 This library is free software, you can redistribute it and/or modify
  32 it under the same terms as Perl itself.
  33
  34 =cut
  35
  36 1;