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 __PACKAGE__->meta->setup(
  10     table => 'comment',
  11
  12     columns => [
  13         qw/
  14           id
  15           post_id
  16           isauthor
  17           email
  18           name
  19           openid
  20           content
  21           /,
  22           addtime => { type => 'epoch', default => 'now' }
  23     ],
  24
  25     primary_key_columns => [ 'id' ],
  26
  27     relationships => [
  28         post => {
  29             type        => 'many to one',
  30             class       => 'Blog::RDBO::Post',
  31             key_columns => { post_id => 'id' }
  32         }
  33     ]
  34 );
  35
  36 __PACKAGE__->utf8_columns( qw/ name content / );
  37
  38 sub comment_count {
  39     my ( $self ) = shift;
  40
  41     $self->{ comment_count } = $_[0] if @_;
  42
  43     return $self->{ comment_count };
  44 }
  45
  46 =head1 AUTHOR
  47
  48 vti
  49
  50 =head1 LICENSE
  51
  52 This library is free software, you can redistribute it and/or modify
  53 it under the same terms as Perl itself.
  54
  55 =cut
  56
  57 1;