Common-RDBO-Helper/t/lib/Post.pm

   1 package Post;
   2
   3 use strict;
   4
   5 use base qw(DB::Object);
   6
   7 use Rose::Object::MakeMethods::Generic ( scalar => [ qw/ pic pic_count / ] );
   8
   9 use Common::RDBO::Helper::Post qw(:all);
  10
  11 __PACKAGE__->meta->setup(
  12     table => 'post',
  13
  14     columns => [
  15         qw/ id title content /,
  16         addtime => { type => 'epoch' }
  17     ],
  18
  19     primary_key_columns => [ qw/ id / ],
  20
  21     relationships => [
  22         tags => {
  23             type      => 'many to many',
  24             map_class => 'PostTagMap',
  25             map_from  => 'post',
  26             map_to    => 'tag'
  27         },
  28         post_tag_map => {
  29             type  => 'one to many',
  30             class => 'PostTagMap',
  31         },
  32         comments => {
  33             type       => 'one to many',
  34             class      => 'Comment',
  35             column_map => { id => 'master_id' },
  36             query_args => [ type => 'post' ]
  37         },
  38         pics => {
  39             type       => 'one to many',
  40             class      => 'Pic',
  41             column_map => { id => 'master_id' },
  42             query_args => [ type => 'post' ]
  43         }
  44     ]
  45 );
  46
  47 =head1 AUTHOR
  48
  49 vti
  50
  51 =head1 LICENSE
  52
  53 This library is free software, you can redistribute it and/or modify
  54 it under the same terms as Perl itself.
  55
  56 =cut
  57
  58 1;