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

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