lib/Blog/Plugin/I18N/AvailableLanguages.pm

   1 package Blog::Plugin::I18N::AvailableLanguages;
   2
   3 use strict;
   4
   5 our $_available_languages;
   6
   7 sub available_languages {
   8     my ( $self ) = shift;
   9
  10     unless ( 0 && $_available_languages ) {
  11         my $calldir = __PACKAGE__;
  12         $calldir =~ s{::}{/}g;
  13         my $file = "$calldir.pm";
  14         my $path = $INC{ $file };
  15         $path =~ s{Plugin\/I18N\/AvailableLanguages\.pm$}{I18N};
  16
  17         opendir( DIR, $path ) || die "can't opendir $path: $!";
  18         my @languages =
  19           grep { /^..\.pm$/ && -f "$path/$_" } readdir( DIR );
  20         closedir DIR;
  21
  22         $_available_languages = [ map { s/\.pm$//; $_ } @languages ];
  23     }
  24
  25     #foreach (@$_available_languages) {
  26         #warn $_;
  27     #}
  28
  29     return $_available_languages;
  30 }
  31
  32 1;