Common-Form-Processor-Model-RDBO-I18N/t/lib/UserI18N.pm

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