lib/Blog/RDBO/Comment.pm

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