lib/Blog/DB/Object/I18N/Translation.pm

   1 package Blog::DB::Object::I18N::Translation;
   2
   3 use strict;
   4
   5 use base qw/ Rose::DB::Object::I18N::Translation Rose::DB::UTF8Columns / ;
   6
   7 use Blog::DB;
   8
   9 sub init_db { shift; Blog::DB->new_or_cached( @_ ) }
  10
  11 sub languages {
  12     my @languages = keys %{ Blog->config->{ languages } };
  13
  14     wantarray ? @languages : \@languages;
  15 }
  16
  17 =head1 AUTHOR
  18
  19 vti
  20
  21 =head1 LICENSE
  22
  23 This library is free software, you can redistribute it and/or modify
  24 it under the same terms as Perl itself.
  25
  26 =cut
  27
  28 1;