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

   1 package Tag;
   2
   3 use strict;
   4
   5 use base qw(DB::Object);
   6
   7 use Rose::Object::MakeMethods::Generic (
   8     scalar => [ qw/ count / ] );
   9
  10 use Common::RDBO::Helpers ':all';
  11
  12 __PACKAGE__->meta->setup(
  13     table => 'tag',
  14
  15     columns => [ qw/ id name / ],
  16
  17     primary_key_columns => [ 'id' ],
  18
  19     unique_key => 'name',
  20
  21     relationships => [
  22         post_tag_map => {
  23             type       => 'one to many',
  24             class      => 'PostTagMap',
  25             column_map => { id => 'tag_id' }
  26         },
  27         posts => {
  28             type      => 'many to many',
  29             map_class => 'PostTagMap',
  30             map_from  => 'tag',
  31             map_to    => 'post'
  32         }
  33     ]
  34 );
  35
  36 =head1 AUTHOR
  37
  38 vti
  39
  40 =head1 LICENSE
  41
  42 This library is free software, you can redistribute it and/or modify
  43 it under the same terms as Perl itself.
  44
  45 =cut
  46
  47 1;