lib/Blog/RDBO/Comment.pm

   1 package Blog::RDBO::Comment;
   2
   3 use strict;
   4
   5 use base qw(Blog::DB::Object);
   6
   7 use Rose::DB::Object::Helpers 'column_value_pairs';
   8
   9 use Common::RDBO::Helper::Comment ':all';
  10
  11 __PACKAGE__->meta->setup(
  12     table => 'comment',
  13
  14     columns => [
  15         qw/
  16           id
  17           post_id
  18           isauthor
  19           email
  20           name
  21           openid
  22           content
  23           /,
  24           addtime => { type => 'epoch', default => 'now' }
  25     ],
  26
  27     primary_key_columns => [ 'id' ],
  28
  29     relationships => [
  30         post => {
  31             type        => 'many to one',
  32             class       => 'Blog::RDBO::Post',
  33             key_columns => { post_id => 'id' }
  34         }
  35     ]
  36 );
  37
  38 __PACKAGE__->utf8_columns( qw/ name content / );
  39
  40 =head1 AUTHOR
  41
  42 vti
  43
  44 =head1 LICENSE
  45
  46 This library is free software, you can redistribute it and/or modify
  47 it under the same terms as Perl itself.
  48
  49 =cut
  50
  51 1;