package Example::I18N;

use strict;
use warnings;

our $VERSION = 0;

use parent qw(Locale::Maketext); # inheritance
use Locale::Maketext::Lexicon;

Locale::Maketext::Lexicon->import({
    q{*}    => [Gettext => './locale/*/LC_MESSAGES/example.po'],
    # use unicode
    _decode => 1,
    # %1, %2 written as placeholders at po file.
    #_style  => 'gettext',
    # fallback at missing keys
    #_auto   => 1,
});

1;

__END__

$Id: I18N.pm 163 2009-12-03 09:20:38Z steffenw $