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

   1 package Rose::DBx::Object::I18N::Manager;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'Rose::DB::Object::Manager';
   7
   8 use Rose::DBx::Object::I18N::Helpers ':all';
   9
  10 use Hash::Merge 'merge';
  11
  12 sub get_objects {
  13     my $class = shift;
  14     my %args  = @_;
  15
  16     if ( my $language = (delete $args{ i18n } || $class->i18n_language()) ) {
  17         my $rel_name = $class->object_class->meta->i18n_translation_rel_name();
  18
  19         my ( $rel ) = grep { $_->name => $rel_name }
  20           $class->object_class->meta->relationships;
  21
  22         my ( $i18n_lang ) = grep { $_->type eq 'i18n_language' }
  23           $rel->foreign_class->meta->columns;
  24         my $i18n_lang_column = $i18n_lang->name;
  25
  26         my $new_args = merge {
  27             query        => [ "$rel_name.$i18n_lang_column" => $language ],
  28             with_objects => [ $rel_name ]
  29           },
  30           \%args;
  31
  32         %args = %$new_args;
  33     }
  34
  35     $class->SUPER::get_objects( %args );
  36 }
  37
  38 =head1 COPYRIGHT & LICENSE
  39
  40 Copyright 2008 Viacheslav Tikhanovskii, all rights reserved.
  41
  42 This program is free software; you can redistribute it and/or modify it
  43 under the same terms as Perl itself.
  44
  45 =cut
  46
  47 1;