CatalystX::Features::Plugin::I18N - Makes C::P::I18N know about features

CatalystX-Features documentation Contained in the CatalystX-Features distribution.

Index

Code Index:

NAME

Top

CatalystX::Features::Plugin::I18N - Makes C::P::I18N know about features

VERSION

Top

version 0.20

DESCRIPTION

Top

This plugin will search for a I18N dir under MyApp in your features directory, then add it to the localization lexicon.

Duplicate entries are treated on a last come, first serve based. The last feature loaded will have precedence over the rest.

AUTHORS

Top

	Rodrigo de Oliveira (rodrigolive), C<rodrigolive@gmail.com>

LICENSE

Top

This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself.

CatalystX-Features documentation Contained in the CatalystX-Features distribution. 
package CatalystX::Features::Plugin::I18N;
$CatalystX::Features::Plugin::I18N::VERSION = '0.20';
use strict;
use warnings;
use parent 'Catalyst::Plugin::I18N';
use MRO::Compat;

sub setup {
    my $c = shift;

    $c->next::method(@_);

    my $appname = ref $c || $c;

    foreach my $feature ( $c->features->list ) {
        my $path = Path::Class::dir( $feature->lib, $appname, 'I18N' );

        my $pattern = File::Spec->catfile($path, '*.[pm]o');
        $pattern =~ s{\\}{/}g; # to counter win32 paths

        my $subclass = $Catalyst::Plugin::I18N::options{Subclass} || 'I18N' ;

        eval <<"";
            package $appname\::$subclass;
            Locale::Maketext::Lexicon->import({ '*' => [Gettext => '$pattern' ] });

        if ($@) {
            $c->log->error(qq/Couldn't initialize i18n "$appname\::I18N", "$@"/);
        }
        else {
            $c->log->debug(qq/Initialized i18n "$appname\::I18N"/) if $c->debug;
        }
    
    }
}


1;