Rose-DBx-Object-I18N/t/lib/UserI18N.pm

   1 package UserI18N;
   2
   3 use strict;
   4
   5 use base qw/ DB::Object::I18N /;
   6
   7 use Metadata;
   8 sub meta_class { 'Metadata' }
   9
  10 __PACKAGE__->meta->setup(
  11     table => 'user_i18n',
  12
  13     columns => [
  14         qw/
  15           i18nid
  16           user_id
  17           lang
  18           istran
  19           signature
  20           /
  21     ],
  22
  23     primary_key_columns => [ 'i18nid' ],
  24
  25     relationships => [
  26         user => {
  27             class       => 'User',
  28             key_columns => { user_id => 'id' },
  29             type        => 'many to one',
  30         },
  31     ],
  32
  33     i18n_static_rel_name => 'user'
  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;