Rose-DBx-Object-I18N/lib/Rose/DBx/Object/I18N/Helpers.pm

   1 package Rose::DBx::Object::I18N::Helpers;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Rose::Object::MixIn();
   7 our @ISA = qw(Rose::Object::MixIn);
   8
   9 __PACKAGE__->export_tag(all => [qw(i18n_language)]);
  10
  11 sub i18n_language {
  12     my ($self) = @_;
  13
  14     my $lang = $ENV{RDBO_I18N_LANG};
  15
  16     if (!$lang && $self) {
  17         unless ( $self->can('object_class') ) {
  18             my $i18n_lang_column = $self->_i18n_lang_column;
  19             $lang = $self->$i18n_lang_column;
  20         }
  21     }
  22
  23     return $lang;
  24 }
  25
  26 =head1 COPYRIGHT & LICENSE
  27
  28 Copyright 2008 Viacheslav Tikhanovskii, all rights reserved.
  29
  30 This program is free software; you can redistribute it and/or modify it
  31 under the same terms as Perl itself.
  32
  33 =cut
  34
  35 1;