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

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