Rose-DB-Object-I18N/t/lib/User.pm

   1 package User;
   2
   3 use strict;
   4
   5 use base qw(DB::Object::I18N::Static);
   6
   7 __PACKAGE__->meta->setup(
   8    table => 'user',
   9
  10    columns => [
  11        qw/ id name orig_lang /
  12    ],
  13
  14    primary_key_columns => [ qw/ id / ],
  15
  16    unique_key => [ qw/ name / ],
  17
  18    relationships => [
  19        user_i18n => {
  20            type       => 'one to many',
  21            class      => 'UserI18N',
  22            column_map => { id => 'user_id' }
  23        }
  24    ]
  25 );
  26
  27 =head1 AUTHOR
  28
  29 vti
  30
  31 =head1 LICENSE
  32
  33 This library is free software, you can redistribute it and/or modify
  34 it under the same terms as Perl itself.
  35
  36 =cut
  37
  38 1;