lib/Blog/RDBO/Post.pm

   1 package Blog::RDBO::Post;
   2
   3 use strict;
   4
   5 use base qw(Blog::DB::Object::I18N::Static);
   6
   7 use Rose::Object::MakeMethods::Generic( scalar => [ 'comment_count' ] );
   8
   9 __PACKAGE__->meta->setup(
  10     table => 'post',
  11
  12     columns => [
  13         qw/ id key orig_lang /,
  14         addtime => { type => 'epoch', default => 'now' },
  15         modtime => { type => 'epoch', default => 'now'}
  16     ],
  17
  18     primary_key_columns => [ qw/ id / ],
  19
  20     unique_key => [ qw/ key / ],
  21
  22     relationships => [
  23         post_i18n => {
  24             type       => 'one to many',
  25             class      => 'Blog::RDBO::PostI18N',
  26             column_map => { id => 'post_id' }
  27         },
  28         tags => {
  29             type      => 'many to many',
  30             map_class => 'Blog::RDBO::PostTagMap',
  31             map_from  => 'post',
  32             map_to    => 'tag'
  33         },
  34         post_tag_map => {
  35             type  => 'one to many',
  36             class => 'Blog::RDBO::PostTagMap',
  37         },
  38         comments => {
  39             type       => 'one to many',
  40             class      => 'Blog::RDBO::Comment',
  41             column_map => { id => 'post_id' }
  42         }
  43     ]
  44 );
  45
  46 __PACKAGE__->utf8_columns( qw/ key / );
  47
  48 __PACKAGE__->meta->column( 'modtime' )->add_trigger(
  49     event => 'on_save',
  50     code  => sub {
  51         my $self  = shift;
  52         my $value = $self->modtime;
  53
  54         $self->modtime( time );
  55
  56     }
  57 );
  58
  59 =head1 AUTHOR
  60
  61 vti
  62
  63 =head1 LICENSE
  64
  65 This library is free software, you can redistribute it and/or modify
  66 it under the same terms as Perl itself.
  67
  68 =cut
  69
  70 1;